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Über den Einsatz des Coaputers in der Schule wird sehr viel 
geredet, aber sehr wenig getan. DATA BECKER hat sich daher 
entschlossen, selbst eine Buchreihe zub Thena herauszugeben. 
Ein sehr komfortables BASIC und hervorragende technische 
Leistungen prädestinieren den CPC 464 für eine Aufnahme in 
diese Buchreihe. 

Werner Voß, Professor für Statistik an der Universität 
Bochum, der nebenberuflich im Bereich der Datenverarbeitung 
und Programmierung tätig ist, hat ein leichtverständliches, 
interessantes und äußerst vielfältiges Buch geschrieben, das 
aufgrund seines didaktisch gelungenen Aufbaus nicht nur in 
Unterrichtsstunden und Seminaren seinen Platz finden wird. So 
werden sich Computerfrenks plötzlich für Fächer begeistern, 
die sonst am Rande Ihres Interesses liegen und andererseits 
werden viele Schüler in das für die Zukunft so wichtige 
Gebiet der Datenverarbeitung eingeführt. 

Es gibt kaum ein Unterrichtsfach, in dem sich der CPC 464 
nicht gewinnbringend einsetzen läßt. Viel Spaß dabei! 
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Computer - wie der SCHNEIDER CRC 464 - sind nicht nur zum 
Spielen da. So faszinierend fertige Programme auch sein 
mögen - Fußballspiele, Weltraumkriege, Autorennen, Schach¬ 
partien, Kämpfe mit seltsamen Ungeheuern usw. - noch auf¬ 
regender ist es, selbst zu programmieren: Wer zum ersten 
Mal ein Problem so aufbereitet hat, daß das in den Rech¬ 
ner eingegebene Programm dieses Problem in Sekunden¬ 
schnelle und ohne Fehler tatsächlich löst, der kann sich 
freuen. Ein solcher Erfolg nämlich zeigt, daß der Com¬ 
puter sinnvolle Arbeit leisten kann, d.h. er kann uns von 
der Last mühsamer "Kopfarbeit" befreien - und das ist 
auch sein wesentlicher Verwendungszweck; dies macht die 
außerordentlich rasch zunehmende Bedeutung dieser Rech¬ 
ner aus. 

In diesem Buch soll deshalb gezeigt werden, wie man als 
Schüler den Rechner, speziell den SCHNEIDER CPC 464, 
dazu einsetzen kann, wesentliche Probleme aus dem 
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Bereich des schulischen Alltags zu lösen. 

Dies bedeutet also, daß mit diesem Buch vier Ziele 
gleichzeitig verfolgt werden: 

1. Typische Schulprobleme beispielsweise aus der 
Mathematik, aus der Physik und aus anderen Fächern 
sollen aufgegriffen und die Wege zu ihrer Lösung 
sollen diskutiert werden. 

2. Die Beschreibung der Problemlösungswege soll dem 
Leser zeigen, wie man ganz allgemein Probleme an¬ 
packen muß, damit ein Rechner sie dann für uns 
lösen kann. 

3. Der Leser wird erkennen, wie die Programmierspra¬ 
che BASIC verwendet werden kann, um diejenigen 
Computerprogramme zu schreiben, die wir zur Lösung 
der oben genannten Probleme benötigen. 

4. Auf diese Weise erhält zum guten Schluß der Leser 
eine Sammlung von Programmen, die er nutzbringend 
im Schulalltag verwenden kann. 

Es versteht sich, daß der Nutzen dieses Buchs für den Le¬ 
ser sich insbesondere dann erschließt, wenn er die vor¬ 
geführten Programme selbst am Rechner ausprobiert und wenn 
er auch Alternativproqramme oder Programmveränderungen 
erprobt. 
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Im Bereich des Programmierens und des Rechnereinsatzes 
gilt nämlich wie in vielen anderen Lebensbereichen auch: 


Übung macht den Meister 


Im einzelnen werden in den Kapiteln dieses Buchs die fol¬ 
genden Problembereiche angesprochen: 

1. Aufgaben aus der Mathematik 

2. Probleme aus der Chemie 

3. Physikalische Aufgabenstellungen 

4. Aufgaben aus dem Sprachunterricht 

5. Aufgaben aus dem Bereich Biologie/Ökologie 

6. Probleme aus Erdkunde und Geschichte 

7. Wirtschaftsprobleme 

8. Sonstige Aufgabenstellungen 


Diesen inhaltlichen Kapiteln werden einige Ausführungen 
zu den Grundlagen und Bedingungen des Rechnereinsatzes 
beigefügt, und wir werden auch die Crundelemente der Pro¬ 
grammiersprache BASIC besprechen. 

Der Leser, der schon über hinreichende BASIC-Kenntnisse 
verfügt, mag die entsprechenden Ausführungen getrost 
überblättern. 

Zu den Computerprogramraen, die in den folgenden Kapiteln 
entwickelt oder vorgestellt werden, ist folgende Anmer¬ 
kung erforderlich: 

Zum einen handelt es sich um Programme, die bestimmte Pro¬ 
bleme lösen sollen (Beispiel: Programm zur Ermittlung 
eines "größten, gemeinsamen Teilers"). 
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Diese Programme können mit unterschiedlichen Ausgangs- 
daten "gefüttert" werden und dienen dann immer dem glei¬ 
chen Zweck. Zum anderen aber gibt es auch reine Trai- 
ningsprogramme: Ein Programm zum Beispiel, das zum Er¬ 
lernen von Englisch-Vokabeln verwendet werden kann, löst 
keine Probleme, sondern es "trainiert" nur. 

Allerdings gilt auch bei diesen Programmen, daß sie all¬ 
gemeiner eingesetzt werden können, wenn sie mit unter¬ 
schiedlichem Ausgangsmaterial versorgt werden. 

Zu diesem Buch werden auch eine Programmkassette und eine 
Programm-Diskette vorbereitet, wo sich alle Programme, 
die hier besprochen werden, wiederfinden, so daß der Le¬ 
ser, der diese Programme benutzen will, sich von der Last 
des Eintippens befreien kann. Diese Programmsammlung ver¬ 
zichtet allerdings auf die kleinen Beispielprogramme im 
folgenden Kapitel, die nur dazu dienen, die Grundelemente 
der Programmiersprache BASIC zu illustrieren. 

Die folgende Anmerkung ist für die weiteren Ausführungen 
besonders wichtig: 

Wir haben in den Programmen, die Schulprobleme lösen sol¬ 
len, bewußt darauf verzichtet, mit fortgeschritteneren 
und anspruchsvolleren BASIC-Sprachelementen zu arbeiten. 
Vielmehr haben wir uns bemüht, bei der Erstellung der 
Programme nur einfachere und grundlegende Sprachelemente 
zu benutzen. Dies hat den Zweck, den Leser - auch wenn 
er noch Anfänger sein sollte - nicht durch programmier¬ 
technische Fragen zu überfordern, sondern ihW die Kon¬ 
zentration auf die sachlichen Probleme zu ermöglichen. 

Diese Einschränkung hat zur Folge, daß manche Programme 
etwas unbeholfen wirken mögen - aber sie funktionieren, 
und zwar mit einfachsten Mitteln; darauf kam es uns zu¬ 
nächst an. 
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Bei komplizierteren Problemen in den späteren Ka¬ 
piteln wird dann allerdings auch der Einsatz 
weiterer Sprachelemente erforderlich, die dann erst 
von Fall zu Fall besprochen werden. 

Weiterhin möge der Leser insbesondere beachten, daß 
manche der vorgestellten Programme nur exemplari¬ 
schen Charakter haben: 

Wenn z.B. in einem Vokabel-Abfrageprogramm nur 10 
Vokabeln zur Verfügung stehen, so muß der Benutzer, 
wenn er dieses Programm konkret nutzen will, zunächst 
die Vokabelliste verlängern. An der grundsätzlichen 
Struktur des Programms - und auf die kommt es ja an - 
ändert sich dadurch natürlich nichts. 
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Kapitel 1: Grundelemente 

der Programmiersprache BASIC 


^ ^ Vorbemerkung 



In diesem Kapitel werden neben einigen allgemeinen Grund¬ 
begriffen aus der Datenverarbeitung, die später wieder 
auftauchen, die wichtigsten Grundelemente der Programmier¬ 
sprache BASIG dargestellt und kurz erläutert. 

Derjenige Leser, der schon hinreichend mit BASIC vertraut 
ist, kann dieses Kapitel überblättern. 

Leser aber, die noch gar keine Programmiererfahrung haben, 
werden die Ausführungen in diesem Kapitel für etwas zu 
kurzgefaßt ansehen. Man kann sich aber mit dem Hinweis trö¬ 
sten, daß in den späteren Kapiteln bei der praktischen 
Verwendung dieser BASIC-Sprachbestandteile deren Verwen¬ 
dung, Funktionsweise und Wirkung dann auf jeden Fall deut¬ 
lich werden wird. 

So gesehen, enthält dieses Kapitel eher nur einen vor¬ 
läufigen Überblick. 
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Grundbegriffe/ die man kennen sollte 


Das Wort "Computer" bedeutet wörtlich übersetzt "Rech¬ 
ner". Ein moderner Computer kann aber mehr als nur rech¬ 
nen. Er kann beispielsweise auch mit Buchstaben/ Worten 
und Texten umgehen, er kann graphische Darstellungen 
erzeugen, er kann Musik produzieren, er kann Steuerungs¬ 
aufgaben übernehmen u.ä. Dies bedeutet also, daß die 
Rechner, die heute manchmal schon für ein paar Hundert 
Mark zu erwerben sind, nicht nur die Rechenkapazitäten 
bereitstellen wie z.B. die Großrechner der sechziger Jah¬ 
re, die damals unerschwinglich teuer waren, sondern sie 
sind viel universeller einsetzbar. 


Daten; Unter "Daten" kann man im weitesten Wortsinn 

"Informationen" verstehen. Im einzelnen kön¬ 
nen dies z.B. sein; 

- Ziffern und Zahlen 

- Werte 

- Buchstaben 

- Symbole (Sonderzeichen) 

- Worte und Texte 


Daten- Unter "Datenverarbeitung" versteht man dann 

verar- alle Prozeduren (häufig rechnerischer Art), 

beitung; derartige Daten zu erfassen, zu speichern, 
auszuwerten oder zu analysieren und Ergeb¬ 
nisse auszugeben. 

Führt man Datenverarbeitung im obigen Sinn nicht per Hand, 
sondern mit Hilfe von Rechnern (Computern) durch, dann 
ist es sinnvoll, auch die folgenden Begriffe zu kennen; 
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bit: 

Unter einem bit "binary Information digit) ver¬ 
steht man die kleinste Informationseinheit (s.o.: 

"Daten" = "Informationen"). 

Die kleinste Informationseinheit nennt man ein 

bit deshalb/ weil in einem bit nur zwei Infor¬ 
mationsinhalte vorstellbar sind. Aus der Sicht 

des Computerherstellers gesprochen, heißt dies: 

Ein bit kann nur zwei Informationsinhalte spei¬ 
chern. 

Diese beiden Informationsinhalte werden übli¬ 
cherweise bezeichnet mit 0 und 1 . 

byte: 

Ein byte ist eine Zusammenfassung einer Folge 

von bits. 

Üblicherweise bilden 8 bits ein byte. Ein byte 

ist somit in der Lage, eine Folge von 8 Nullen 

und/oder Einsen zu speichern. 

Symbol: 

Wir unterscheiden drei Gruppen von Symbolen; 

1. numerische Symbole = Ziffern 

2. alphabetische Symbole = Buchstaben 

3. sonstige Symbole = Sonderzeichen 

Im allgemeinen wird jedes dieser Symbole im 
Rechner dargestellt als Folge von 8 Nullen 
und/oder Einsen, d.h. ein byte (s.o.) nimmt 

ein Symbol auf. 
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Feld; Eine Folge von Symbolen (z.B. Worte oder 

Zahlen) bilden ein Feld. 

Beispielsweise besteht das Wort PRINT aus 
5 Symbolen, belegt mithin 5 byte im Rechner, 
und da diese 5 Symbole zusammengehören, bil¬ 
den sie ein Feld. 

Entsprechendes gilt für die Zahl 178. Sie 
wird in einem dreistelligen Feld gespeichert 
(man sieht, daß es auch einstellige Felder 
geben kann). 

Variable; Eine Variable ist eine veränderliche Größe 

oder - präziser gesprochen - ein Name , unter 
dem verschiedene Werte (s.u.) angesprochen 
weirden können. 

Beispielsweise stehen hinter dem Variablen¬ 
namen "Körpergröße" die Werte 178, 185, 167 usw., 
hinter dem Namen "Kinderzahl" z.B. die Werte 1, 

2, 0, 4 usw., hinter dem Namen "Ort" z.B. die 
Werte "Dortmund", "Bochum", "Kassel" und dergl. 

Wert; Wie aus der vorangegangenen Begriffsklärung 

schon zu entnehmen ist, verstehen wir unter 
dem Begriff "Wert" eine bestimmte Ausprägung 
einer gegebenen Variablen. Es muß sich dabei 
nicht notwendigerweise um Zahlen handeln, son¬ 
dern wie das obige Beispiel der Variablen 
"Ort" zeigt, können als Werte auch Worte oder 
Texte auftreten. 

Die Werte belegen jeweils ein Feld im Rechner 
(s.o.). Man spricht auch von einer Speicher- 
stelle. 
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String: 

Einen Text, der z.B. als Variablenausprägung 
auftreten kann (s.o.), nennt man "string"; 
allgemein gesprochen handelt es sich um eine 

Zeichenkette. 

Array: 

Die Gesamtheit aller Ausprägungen einer 

Variablen (Zahlen oder Worte) nennt man 
"array". 

Daten- 
Satz: 

Mehrere zusammengehörige Felder nennt man einen 

Datensatz. 

Beispielsweise bilden alle vorhandenen Angaben 
über eine Person (Name, Geschlecht, Alter, 

Wohnort etc.) einen Datensatz. In diesem Bei¬ 
spiel wäre ein Datensatz also eine Folge zu¬ 
sammengehöriger Zahlen und/oder Worte. 

Aber auch eine Folge nur von Worten kann als 
Datensatz bezeichnet werden, z.B. die Programm- 
anweisunq: 

PRINT "OTTO", "SUSI", "OLAF" 

Der Datensatz wird auch als "record" bezeichnet. 

Datei; 

Mehrere zusammengehörige Datensätze bilden eine 
Datei. Beispielsweise erhalten wir eine Datei, 
wenn wir die Datensätze aller Beschäftigten 
eines Unternehmens zusammenstellen. Genauso wür¬ 
den wir eine Datei erhalten, wenn wir alle Pro¬ 
grammanweisungen eines Programms insgesamt be¬ 
trachten . 

Die Datei wird auch als "file" bezeichnet. 
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Zur Funktionsweise von Rechnern 


Es wurde schon erläutert, was unter "Datenverarbei¬ 
tung verstanden werden soll. Daraus geht hervor, daß 
eine Datenverarbeitungsanlage die folgenden Tätigkei¬ 
ten (Funktionen) ausführen muß: 

1. Informationsaufnahme (Dateneinga] 

2. Informationsspeicherung 

3. Verarbeiten von Daten im engeren 
Wortsinn (z.B. Rechnen oder Um¬ 
stellen von Texten und dergl.) 

4. Ausgabe von Ergebnissen 


Informationseingabe, -Verarbeitung und -ausgabe machen 
eine Reihe organisatorischer Schritte notwendig, die 
wir hier nicht zu besprechen brauchen, weil sie der Rech¬ 
ner im allgemeinen selbständig erledigt. Verantwortlich 
dafür ist das sog. Betriebssystem. 

Der Rechner muß also von uns Informationen erhalten, da¬ 
mit ein Datenverarbeitungsprozeß in Gang kommen kann. 

Er gibt seinerseits Informationen zurück, beispielsweise 
errechnete Ergebnisse. 

Diejenigen Informationen, die wir ihm geben müssen, las¬ 
sen sich in drei Informationsgruppen einteilen: 

1. Zu verarbeitende Daten 

2. Programmanweisungen 

(Arbeitsschritte, die notwendig sind, 
um die eingegebenen Daten den gewünsch¬ 
ten Auswertungsprozeduren zu unterziehen) 

3. Kommandos 

(Mitteilungen und Anweisungen an das 
Betriebssystem des Rechners; s.o.) 


0 


Eingabe 

Verarbeitung 

Ausgabe 
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Entsprechend den unterschiedlichen Teilaufgaben, die der 
Rechner erledigen muß, unterteilen wir: 

1. Eingabegeräte (z.B. Tastatur) 

2. Verarbeitungsbereich (die sog. Zentraleinheit) 

3. Ausgabegeräte (Bildschirm oder z.B. Drucker) 

Darüber hinaus gibt es sog. externe (oder periphere) 
Speicher. Sie dienen dazu, Programme oder Datenbestände 
auf Dauer aufzubewahren. In der Regel handelt es sich 
dabei um Tonband- Kassetten oder um sog. Disketten , die 
in entsprechenden Laufwerken bespielt bzw. gelesen wer¬ 
den können. 
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Problemanalyse 


Wenn ein bestimmtes Problem mit Hilfe eines Computers 
gelöst werden soll, so ist dies nur dann möglich (der 
Leser möge diese Anmerkung immer beachten), wenn der Com¬ 
puterbenutzer den Lösungsweg vorher schon gefunden hat. 
Das heißt, daß die Problemlösung an sich, trotz aller 
modernen Rechner, immer noch nach wie vor nur im Kopf 
und nicht in der Maschine erledigt werden kann; 
der Rechner entlastet uns dann nur von der Aufgabe, den 
Lösungsweg Schritt für Schritt abzuarbeiten. 

Damit ein Rechner nun diese Abarbeitung leisten kann, 
muß ihm der eigentliche Lösungsweg als Folge einzelner 
Anweisungen Schritt für Schritt vorgezeichnet werden. 
Dies wiederum macht es erforderlich, daß ein zu lösen¬ 
des Problem zunächst gedanklich in eine logische Folge 
von Einzelschritten zerlegt wird - wir bezeichnen die¬ 
sen Vorgang als Problemanalyse. 

Häufig ist es bei einer derartigen Problemanalyse hilf¬ 
reich, wenn man die Folge von Arbeitsschritten graphisch 
in Form eines sog. Flußdiagramms darstellt. 

Dies zeigt anschaulich das folgende Beispiel: 













Voß 

Kapitel ^ 

: BASIC 

Seite 

Schule 

Abschnitt 4 

• Problemanalyse 

1 5 



Quelle : W.VOSS : BASIC leicht und schnell gelernt 

am alphaTronic PC, Darmstaüt 1984, 
(Heim-Verlag), Seite 8 . 
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In den folgenden Kapiteln werden wir auf dieses Instru¬ 
ment der "Problemzergliederung" zurückgreifen, weil auf 
diese Weise das Programmieren , d.h. die Erstellung der 
Anweisungsfolge für den Computer, wesentlich erleich¬ 
tert wird und logische Programmfehler eher vermieden 
werden können. 
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Ergebnisausgabe 


Eine Folge von Anweisungen, die einen Rechner veran¬ 
lassen, ein vorgegebenes Problem selbständig zu lösen, 
nennt man ein Programm . Es muß in einer Sprache ge¬ 
schrieben werden, die der Rechner verstehen kann. 

Eine solche Sprache ist die Programmiersprache BASIC. 


BASIC = 

Beginner's 
All-Purpose 
Symbolic 
^nstruction 
Code 



Jedes BASIC-Programm besteht aus einer Folge von An¬ 
weisungen (Statements) , die dem Rechner zeilenweise 
eingegeben werden. Eine Zeile nennen wir Satz. 


Regel 

1 : 

Jeder Satz in BASIC benötigt 
eine Satznummer 

Regel 

2 : 

Jeder Satz muß mit der ENTER- 
Taste abgeschlossen werden. 

Regel 

3: 

In einem Satz können mehrere 
Statements stehen, die dann 
durch Doppelpunkte voneinander 
zu trennen sind. 
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Statement 1; 

nn END 

Das END-Statement 

beschließt das BASIC-Programm. 

Statement 2; 

leer 


A Zahl 

nn PRINT 

Rechnung 


\ String 


Variablenname 


Das PRINT-Statement bringt Ergebnisse auf den Bild¬ 
schirm. Man unterscheidet fünf Möglichkeiten; 


1 . 

leer ; 

Ergibt eine Leerzeile 

2 . 

Zahl : 

Die Zahl wird ausgegeben 

3. 

Rechnung ; 

Das Ergebnis der Rechnung wird 
ausgegeben 

4. 

String : 

Der String wird ausgegeben (ein 
String ist eine Zeichenkette, die 
in Anführungszeichen einzuschlies- 
sen ist) 

5. 

Variablenname : 

Der Inhalt des Speicherfeldes mit 
diesem Namen wird ausgegeben 

Das 

Wort PRINT darf 

durch ein ? abgekürzt werden. 
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Das folgende einfache BASIC-Programm benutzt alle die¬ 
se Möglichkeiten ; 


10 PRINT 3 
20 PRINT 
30 PRINT 4.8/2 
40 ? 

50 ?"SUSI" 

60 ? 

70 ? X 
80 END 


Ein solches BASIC-Programm wird erst abgearbeitet, wenn 
wir das Kommando RUN eingeben: 


Kommando 1: 

RUN 


Für das obige Beispiel erhalten wir nach dem Kommando 
RUN auf dem Bildschirm die folgenden Ergebnisse: 


3 

2.4 

SUSI 

0 
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Regel 4; Kommandos erhalten keine Satznummer 


Wollen wir nach dem Ergebnisausdruck unser Programm 
auf dem Bildschirm noch einmal sehen, benötigen wir 
das folgende Kommando: 


Kommando 2: 

LIST 


Zum PRINT-Statement sind noch einige Anmerkungen er¬ 
forderlich : 

Die verschiedenen Möglichkeiten, die in Statement 2 
genannt wurden, können in einem PRINT-Statement mehr¬ 
fach und auch gemischt verwendet werden. 

Sie sind dann durch Kommata oder durch Strichpunkte von¬ 
einander zu trennen. 
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Regel 

5: 

Werden die verschiedenen Ausdrücke im 
PRINT-Statement durch Kommata getrennt, 
wird der Ausdruck zu Beginn der näch¬ 
sten Bildschirmzone fortgesetzt; wird 
das Semikolon als Trenner benutzt, geht 
es unmittelbar weiter. 

Regel 

6 : 

Jeder PRINT-Befehl bewirkt in der Regel 
auch einen Zeilenvorschub. Steht im 
Statement nur das Wort PRINT, so erfolgt 
nur ein Zeilenvorschub. 

Regel 

7: 

Ein Komma oder ein Semikolon am Ende 
eines PRINT-Statements unterdrückt 
den Zeilenvorschub. 


Das PRINT-Statement erzeugt Ergebnisausdrucke, die am 
linken Bildschirmrand beginnen. Will man dies ändern, 
kann man sich der TAB-Funktion (TAB = Tabulator) be¬ 
dienen. 


PRINT TAB (10) 8 


rückt den Ausdruck des Wertes 8 zehn Stellen nach 
rechts. 


Auf den Begriff des Variablennamens, der im PRINT- 
Statement ja auch schon eine Rolle spielte und auf 
Einzelheiten der ausführbaren Rechnungen, kommen wir 
im folgenden Abschnitt zu sprechen. 


Will man vor der Eingabe eines neuen Programms ein 
eventuell schon vorhandenes, altes und nun nicht 
mehr benötigtes Programm löschen, benötigt man das 
folgende Kommando, welches den Inhalt des Programm¬ 
speichers löscht: 


Kommando 3: 


NEW 
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WertZuweisungen 



Für viele Zwecke ist es - wie man noch sehen wird - 
sehr sinnvoll, wenn Speicherplätze im Rechner mit 
Namen versehen werden können, damit dann unter diesen 
Namen unterschiedliche Werte gespeichert werden können. 

Zunächst genügt es, drei Typen von Variablen zu unter¬ 
scheiden: 

1. Reelle Variablen 

2. Ganzzahlige Variablen 

3. Stringvariablen 

Reelle Variablen können als Werte reelle Zahlen an¬ 
nehmen, also Z.B.: 3.5 -17.01 18. 0.04 -7.5 etc. 

(statt des Dezimalkommas wird beim Programmieren ein 
Punkt verwendet) 

Ganzzahlige Variablen können als Werte nur ganze Zahlen 
annehmen, also z.B.: 4 8 -3 0 20 etc. 

String-Variablen haben als Werte Symbolfolgen, die in 
Anführungszeichen einzuschließen sind, also z.B.: 

"OTTO" "00" "DORTMUND" "A-15" usw. 


Regel 8: Die Namen reeller Variablen bestehen aus 

einem oder zwei alphanumerischen Zeichen, 
wobei das erste ein Buchstabe sein muß. 

Die Namen ganzzahliger Variablen werden 
zusätzlich mit % versehen. 

Die Namen von Stringvariablen werden statt- 
dessen zusätzlich mit $ versehen. 
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Bei vielen Rechnern dürfen die Najnen 
auch länger sein (Benutzerhandbücher 
konsultieren!). 

Beispiele: 


1 . 

Reelle Variablen: 

X 

Bl 

NN 

2. 

Ganzzahlige Variablen: 

C% 

Y1% 

AA% 

3. 

Stringvariablen: 

n 

C2$ 

ZZ$ 


Nach dieser Begriffsklärung können wir das LET-State- 
ment besprechen, welches der Wertzuweisung dient, so 
daß für einen gesamten Programmablauf dieser Wert dann 
zur Verfügung steht: 


Statement 3: 



Zahl 

nn LET 

Var.name 

= 

^ Rechnung 
^ String 

Var. name 


Das Wort LET darf auch entfallen. 

Mit diesem Statement kann also, wie auch übrigens schon 
mit dem PRINT-Statement, gerechnet werden. 

Die Rechenoperatoren sind die folgenden: 

+ Addition 

Subtraktion 
* Multiplikation 
/ Division 
f Potenzierung 
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Die Rangfolge der Operatoren entspricht der aus der 
Schulmathematik bekannten; bei Bedarf kann durch Klam¬ 
mersetzung davon abgewichen werden. 

Mit dem LET-Statement können also auch schon kompli¬ 
ziertere Anweisungen geschrieben werden. Wenn man 
sich dabei vertippt, besteht die einfachste Korrektur 
darin, den fehlerhaften Satz per ENTER-Taste zu 
schließen und ihn darunter einfach neu zu schreiben. 
Soll ein Satz ganz gelöscht werden, so gibt man einfach 
seine Satznummer ein plus ENTER-Taste. 

Soll ein Satz nachträglich in ein Programm eingefügt 
werden, so wird dies durch Vergabe passender "Zwischen- 
Satznummern" erreicht. 

Viele Rechnungen können durch die sog. eingebauten 
Funktionen erleichtert werden. Die wichtigsten dieser 
Funktionen sind die folgenden: 

Allgemeine Schreibweise: 


Var.name = Funktionsname (Argument) 
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Wichtige Funktionen 

Name Aufgabe 

SIN berechnet die Winkelfunktionswerte, 

COS wobei als Argument Einheiten des 

TAN Kreisparameters ^ zu verwenden ist 

LOG natürlicher Logarithmus 

EXP Umkehrung dazu 

SQR Quadratwurzel 

ABS Absolutwert 

INT ^ößter, in einem reellen Wert vor¬ 

handener, ganzzahliger Teil 

RND Zufallszahlenerzeugung 

CHR$ Ausgabe eines ASCII-Code-Zeichens 


Beispiele zu diesen Funktionen sind hier entbehrlich. 
Sie finden sich zur Genüge in den folgenden Kapiteln. 
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Informationseingabe 


Zur Informationseingabe_eignet sich hervorragend das 
folgende Statement; 


Statement 4; 



nn INPUT 

C'Text" ; 

) Var.liste 


Dieses Statement sieht recht kompliziert aus, ist aber 
leicht zu verstehen: 

Gelangt der Rechner an dieses Statement, unterbricht 
er die Programmabarbeitung und produziert ein Frage¬ 
zeichen auf dem Bildschirm (zusätzlich zu dem even¬ 
tuell angegebenen "Text", der aber auch weggelassen 
werden kann; deshalb oben in Klammern). Er erwartet dann 
vom Benutzer so viele Werte (durch Kommata zu trennen), 
wie Variablennamen in der Variablenliste genannt sind 
(also mindestens einen Wert, wenn nur ein Name genannt 
ist) . 

Beispiele; 

INPUT X Der Rechner erwartet eine Zahl, 

die dann im Feld X gespeichert 
wird. 

INPUT A,B,C Der Rechner erwartet drei Zahlen. 
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INPUT "BITTE NAMEN EINGEBEN";N$: 

Der Rechner druckt den String, 
der in Anführungszeichen steht, 
und erwartet dann einen String 
(z.B. "OTTO"), der im Feld N^ 
gespeichert wird. 


Regel 9; Die Variablennamen in der Variablen¬ 

liste des INPUT-Statements werden 
durch Kommata getrennt. 

Die einzugebenden Werte müssen genauso 
getrennt werden. 


Beispiel ; 


\(ii INPUT "BITTE 4 WERTE : ";A,B,C,D 
20 LET S=A+B+C+D 
30 LET AM = S/4 
40 PRINT"MITTELWERT = ";AM 
50 END 


Dieses Programm berechnet offenbar den Durchschnitt 
aus beliebigen vier einzugebenden Zahlen. 
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Programmverzwelgungen 


Solange in einem BASIC-Progrciinm keine Verzweigungen 
auftreten (sog. Sprünge ), erfolgt die Abarbeitung 
in der Reihenfolge der vergebenen Satznummern . 

Will man von dieser Reihenfolge abweichen, so sind 
Progfammsprünge erforderlich. 

Wir unterscheiden unbedingte Sprünge von bedingten 
Sprüngen . 

Betrachten wir zunächst den bedingten Sprung, der mit 
Hilfe des folgenden Statements möglich ist: 


Statement 5i 


Anweisung 

nn IF Bedingung THEN ^ 

Satznummer mm 


Dieses Statement veranlaßt das Betriebssystem des Rech¬ 
ners zu einer Abfrage: Wird die Bedingung, die nach dem 
Befehlswort IF steht, erfüllt, so wird der hinter dem 
THEN stehende Befehl ausgeführt bzw. es wird zum Satz 
mit der Nummer mm verzweigt. 

Ist die Bedingung hingegen nicht erfüllt, so geht 
die Programmsteuerung zu dem Satz über, der nach 
dem IF-Statement folgt. 
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Regel 

Io: 

Ist die Bedingung im IF-Statement 
erfüllt, so wird die Anweisung 
hinter THEN ausgeführt bzw. zu der 
dort stehenden Satznummer ver¬ 



zweigt. 



Ist die Bedingung nicht erfüllt, 
wird der nächste Satz bearbeitet. 

Regel 

1 1 : 

Stehen hinter dem IF-Statement noch 
weitere Statements im gleichen Satz, 
so werden diese nur dann ausgeführt, 
wenn die Bedingung erfüllt ist. 


Beispiel ; 


10 

I = 

1 


20 

Q = 

1* 

^I 

30 

W = 

SQR(I) 

40 

PRINT 

I,Q,W 

50 

I = 

I 

+ 1 

60 

IF 

I<* 

20 THEN 20 

70 

END 




Dieses Programm bestimmt offensichtlich für alle gan¬ 
zen Zahlen von 1 bis 20 (jeweils im Feld I zu finden), 
die Quadratzahlen (im Feld Q; Satz 20) und die Qua¬ 
dratwurzeln (im Feld W; Satz 30) und druckt die je¬ 
weils zusammengehörigen drei Werte zeilenweise auf dem 
Bildschirm. 
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Entscheidend dabei ist Satz 60. Er besagt, daß das 
Programm immer wieder zum Satz 20 zurückkehren soll, 
solange im Feld I nach der Erhöhung des Inhalts die¬ 
ses Feldes jeweils um 1 (Satz 50) ein Wert steht, 
der kleiner als 21 ist. 

Solange diese Bedingung erfüllt ist, wird das getan, 
was hinter dem THEN steht (nämlich Rücksprung nach 
Satz 20) ; ist sie nicht mehr erfüllt', wird der dem IF- 
Statement folgende Satz (Satz 70) bearbeitet. 

Die Alternative zum bedingten Sprung ist der unbeding¬ 
te Sprung: 


Statement 6: 

nn GOTO mm 


Erreicht die Programmsteuerung dieses Statement, so 
erfolgt ein Sprung zum Satz mit der Nummer mm. 
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10 

CLS 



20 

INPUT"BITTE WERT 

EINGEBEN ; 

: "; X 

30 

N=N-«-l 



40 

S=S+X 



50 

INPUT"NÜCH EIN WERT (J/N) ' 

A4: 

60 

IF TUEN 2(; 



70 

AM=S/N 



80 

PR INT"MITTELWERT 

= ";AM 


90 

END 




Dieses Programm bestimmt für eine beliebige Zahl einzu¬ 
gebender Werte das arithmetische Mittel. Wenn ein Wert 
gegeben wurde, fragt der Rechner den Benutzer, ob noch 
einer einzugeben ist. Antwortet der Benutzer mit "J" 
(für "JA"), so erfolgt ein Sprung von Satz 60 zu Satz 
20 und der nächste Wert wird angefordert. 

Ist hingegen kein weiterer Wert vorhanden, d.h. ant¬ 
wortet der Benutzer beim INPUT-Statement in Satz 50 
nicht mit "J", so erfolgt die weitere Programmabarbei¬ 
tung ab Satz 70 (Berechnung und Ausgabe des Mittel¬ 
werts) . 
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Programmschleifen 



Öäufig ist es sinnvoll, daß bestimmte Programmteile 
mehrfach zu durchlaufen sind. Zu diesem Zweck be¬ 
nötigt man sog. Schleifen (loops). Solche Schleifen 
können mit denjenigen Statements, die wir bisher be¬ 
sprochen haben, leicht erzeugt werden, wie das Bei¬ 
spiel des vorangegangenen Programms zeigt. 

Mit den folgenden Statements geht die Schleifenkon¬ 
struktion einfacher und es werden zudem zusätzliche 
Möglichkeiten eröffnet. 


Statement 7; nn FOR Laufvarname = Anfangswert 

TO Endwert (STEP Schrittweite) 


Das folgende Statement gehört notwendig dazu: 


Statement 8: nn NEXT Laufvarname 


("Laufvarname” steht dabei als Abkürzung für : 

"Name einer Laufvariablen"). 

Die Laufvariable , die in diesen beiden Statements 
auftaucht, muß eine reelle Variable sein. Anfangs¬ 
wert, Endwert und Schrittweite können Zahlen, Variab¬ 
len oder arithmetische Ausdrücke sein. 
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"Gelangt der Rechner an das FOR-Statement, so wird 
zunächst die Laufvariable gleich dem Anfangswert ge¬ 
setzt und der Programmteil zwischen FOR und NEXT wird 
mit diesem Wert durchlaufen. 

Bei Erreichen des NEXT wird nun die Laufvariable auf 
den nächsten Wert, nämlich Anfangswert + Schrittweite, 
gesetzt und wieder derselbe Programmteil abgearbeitet, 
jetzt mit dem 2. Wert der Laufvariablen. 


Dies erfolgt solange, bis bei Erreichen des NEXT durch 
weitere Addition der Schrittweite der Endwert über¬ 
schritten wird. Dann wird der nach NEXT folgende Satz 
bearbeitet. 

"STEP Schrittweite" kann aus dem FOR-Befehl weggelas¬ 
sen werden, wenn die Schrittweite gleich eins sein solL " 
(PRUST, 1982, S. 64). 


Das folgende Programm druckt 10 mal "GUTEN TAG" 
untereinander: 


10 FOR I = 1 TO 10 
20 ?"GUTEN TAG" 

30 NEXT I 
40 ? 

50 ?"ENDE" 

60 END 
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Die Benutzung externer Speicher 



Gelungene Progranune möchte man gern auf Dauer aufheben, 
so daß man bei Bedarf wieder darauf zurückgreifen kann 
(entsprechend gilt, daß man ab und zu gern schon vor¬ 
handene Programme anderer Verfasser benutzen möchte). 
Dies wird ermöglicht, wenn man Tonbandkassetten oder 
Disketten benutzt. Dabei muß man die folgenden Komman¬ 
dos kennen. 

Zum Laden eines Programms von einer Kassette benötigen 
wir: 


Kommando 4: 

LOAD "Name des Programms" 


Nach der Aufforderung des Rechners ist dann das 
Kassettengerät zu bedienen, wobei darauf zu achten 
ist, daß die eingelegte Kassette nicht so weit vor¬ 
gespult ist, daß der Anfang des gewünschten Pro¬ 
gramms nicht mehr gefunden werden kann. 


Zum Speichern eines Programms auf Kassette benötigen 
wir: 
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Kommando 5: 


SAVE "Name des Programms" 


Will man feststellen, welche Programme sich alle auf 
einer Kassette befinden, will man sich also ein In¬ 
haltsverzeichnis ausgeben lassen, so ist einzugeben: 

Kommando 6: 

CAT 


Auf dem Bildschirm wird dann, wenn der Benutzer den 
Anweisungen des Rechners gefolgt ist, ein Kassetten- 
Inhaltsverzeichnis ausgegeben. 
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Ergänzungen 



/£in paar wenige, nützliche Ergänzungen mögen dieses 
zusammenfassende Übersichtskapitel beschließen. 

Es sieht ganz gut aus, wenn der Bildschirm bei der 
Programmabarbeitung zunächst gelöscht wird, bevor 
die ersten Ergebnisse ausgegeben werden. Dies wird 
ermöglicht mit der Anweisung: 


Statement 9: 

nn CLS 


Häufig ist es sinnvoll, einen Programmlauf zu stoppen, 
beispielsweise dann, wenn man eine sog. Endlosschleife 
programmiert hat. Betätigt man die Taste ESC , so 
hält die Programmabarbeitung an und wird durch Drücken 
irgendeiner anderen Taste wieder aufgenommen. 

Drückt man die ESC -Taste zweimal, bleibt das Pro¬ 
gramm endgültig stehen. 

Schließlich ist anzumerken, daß mit dem Statement 


Statement 1 QI nn STOP 


der Programmablauf vom Programm selbst unterbrochen 
werden kann. Soll das unterbrochene Programm weiter ab¬ 
gearbeitet werden, benötigen wir das Kommando: 


Kommando 7: 


CONT 
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Schließlich sei ergänzend angemerkt, daß es häufig 
sehr nützlich ist, in ein Programm erklärende Anmer¬ 
kungen (Überschriften, Kommentare, Erläuterungen usw.) 
einzufügen. Dies kann mit dem folgenden Statement ge¬ 
schehen : 


Statement 11 : 





nn 

REM 

Text 


Dieses Statement hat keinen Einfluß auf die Programm¬ 
abarbeitung, erscheint aber in jeder Programmliste, 
die erstellt wird. 


Diese Ausführungen mögen genügen, um auch dem Anfänger 
eine Vorstellung von den Grundelementen der Programmier¬ 
sprache BASIC zu vermitteln. So wird er in die Lage ver¬ 
setzt, die Bausteine der folgenden Anwendungsprogramme 
zu verstehen. Sollten dennoch Verständnisprobleme blei¬ 
ben, so gilt der folgende Ratschlag: 

AUSPROBIEREN 

Beim Ausprobieren von Programmen und beim Versuch, ge¬ 
danklich nachzuvollziehen, warum der Rechner genau das 
tut, was er tut, lernt man am meisten. 
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Kapitel 2 : Mathematik 



2.1 

I Vorbemerkung 


Die Matheraatjik ist derjenige Bereich, der uns am ehesten 
einfällt, wenn die Frage gestellt wird, wofür denn über¬ 
haupt Computer eingesetzt werden. Deshalb wollen wir mit 
diesem Bereich die inhaltlichen Ausführungen beginnen. 

Wir werden später aber sehen, daß die Mathematik nur ein 
Anwendungsbereich unter vielen ist. 

Allerdings stehen wir nun, wie auch in den folgenden Ka¬ 
piteln, vor dem Problem, welcher Art die Beispiele sein 
sollen, die hier zweckmäßigerweise aufzunehmen sind. Die 
Mathematik umfaßt ja bekanntlich ein sehr weites Spektrum 
unterschiedlicher Schwierigkeitsgrade - beginnend viel¬ 
leicht bei den Grundrechenarten und bei der Differential- 
und der Integralrechnung noch lange nicht endend. 

Wir wollen das hier so handhaben, daß wir Probleme "mitt¬ 
leren Schwierigkeitsgrades" aufgreifen, also uns etwa an 
denjenigen Aufgabenstellungen orientieren, wie sie zum 
Beispiel in der gymnasialen Mittelstufe, also in den 
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Jahrgangsstufen 8 bis Io auftreten. Sie eignen sich sehr 
gut dazu, die Möglichkeiten von Rechnern zu demonstrie¬ 
ren, ohne daß wegen des eventuell zu hohen Komplexitäts¬ 
grades die Darstellung der behandelten Probleme zu viel 
Platz in Anspruch nehmen würde. 

Absicht dieses Buches ist es ja nicht, den Leser durch 
die Anwendungsbeispiele zu überfordern, sondern er soll 
erkennen, was Rechner leisten. Dies ist auch mit ein¬ 
fach strukturierten Fragestellungen möglich, die dem 
Schulalltag auch der jüngeren Leser angepaßt sind. 


Für die Programme in diesem und in den folgenden Kapiteln 
gilt die folgende wichtige Anmerkung : 


Bei den Programmen wird darauf verzichtet, 
Eingeabefehler der Benutzer "abzufangen"! 


Wenn also zum Beispiel bei einem bestimmten mathematischen 
Problem nur positive Zahlen verwendet werden können (so 
etwa beim Wurzelziehen), so ist im entsprechenden Pro¬ 
gramm nicht vorgesehen, den Benutzer dann zu informieren, 
wenn er irrtümlich eine negative Zahl eingegeben hat. 

Mit einem sehr einfachen Beispiel "mittleren Schwierig¬ 
keitsgrades" wollen wir nun beginnen. 
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Der Satz des Pythagoras 


Am berühmten Lehrsatz des Pythagoras kann in anschauli¬ 
cher Weise gezeigt werden, wie die einzelnen Beispiele 
gegliedert werden. 

Wir werden jeweils die folgenden Arbeitsschritte vollzie¬ 
hen : 



Arbeitsschritte : 

1. 

SCHRITT 

: Vorstellung des Problems 

2. 

SCHRITT 

: Problemanalyse 

5. 

SCHRITT : 

: Flußdiagramm 

4. 

SCHRITT i 

: Programm 

5 . 

SCHRITT : 

Variablenliste 

6. 

SCHRITT : 

: Programmbeschreibung 

7. 

SCHRITT : 

Ergebnisse 
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Wenden wir uns nun, dieser Einteilung entsprechend, dem 
hier genannten Problem zu : 

© SCHRITT : Vorstellung des 
Problems 


Der Lehrsatz des Pythagoras besagt, daß im 
rechtwinkligen Dreieck die Länge der Grundseite (Hypothe- 
nuse) sich ergibt als Quadratwurzel aus der Summe der 
beiden Kathetenquadrate. 


Dieä illustriert die folgende Abbildung : 




SCHRITT 


Probleinanalyse 


Bei diesem Problem ist die Problemanalyse sehr 

einfach : 

Man muß sich dabei,wie bei allen folgenden Problemen 
auch, daran erinnern, daß ganz allgemein ein Datenverar¬ 
beitungsprozeß nach dem schon vorgestellten 


EVA - Prinzip 


abläuft. 
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E 

= 

Eingabe 

V 

= 

Verarbeitung 

A 

= 

Aüsgabe 


Wir müssen bei der Problemanalyse also zunächst festlegen, 
welche Informationen der Rechner von uns bekommen muß, da¬ 
mit das gestellte Problem gelöst werden kann. 

Die notwendigen Eingabeinformationen sind offensichtlich 
die Längen der beiden Kathetenseiten a und b. 

Im Verarbeitungsschritt sind diese beiden Werte zu qua¬ 
drieren; es ist die Summe dieser beiden Quadrate zu bil¬ 
den und aus dieser Summe muß dann die Quadratwurzel ge¬ 
zogen werden. 

Der Ausgabeschritt besteht lediglich darin, das errechne- 
te Ergebnis (die Länge der Hypothenuse c) auf dem Bild¬ 
schirm auszugeben. 
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SCHRITT 


Flußdiagranun 
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SCHRITT 


Programm 


10 REM Ml-PYTHAGORAS 
20 CLS 

30 PRINT"PRÜGRAMM ZUR BESTIMMUNG DER HYPOTHENUSE" 
40 PRINT" EINES RECHTWINKLIGEN DREIECKS." 

5pR^'^ jNT: PR I NT: PR I NT TAB (10)" PRÜF. DR. W. VOSS , 1984 

60 INPUT"ERSTE KATHETE : ";A 

70 INPUT"ZWEITE KATHETE : "?B 

SO Q1=A*A 

90 a2=B*B 

100 S=Q1+Q2 

110 C=SQR(S) 

120 PRINT:PRINT:PRINT"HYPOTHENUSE C = ";C 
130 END 


Kürzere Programmversion 


10 bis 50 : wie oben 

60 INPUT "ZV;EI kathetenwerte : ";A,B 

70 C=SQR(A»»A+B#B) 

80 PRINTrPRINT "HYPOTHENUSE C = ";C:END 



SCHRITT 


Variablenliste 


A : Erste Kathete 

B ; Zweite Kathete 

C : Hypothenuse 

Ql ; Quadrat der ersten Kathete A 

Q2 : Quadrat der zweiten Kathete B 
S : Summe der Kathetenquadrate 
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SCHRITT 


Programmbeschreibung 


Bei der Beschreibung beziehen wir uns auf die 
erste, die längere Programmversion : 


Satz 10 : 

Satz 20 : 

Satz 30'-50: 
Satz 60 : 

Satz 70 : 

Satz 80 : 

Satz 90 : 

Satz 100 ; 

Satz 110 : 

Satz 120 : 

Satz 130 : 


Kommentar 

Der Bildschirm wird freigemacht 

Titelausdruck auf Hem Bildschirm 

Für die erste Dreiecks-Kathete wird ein Wert 
angefordert und im Feld A gespeichert 

Entsprechend zweite Kathete für Feld B 

Berechnung des ersten Kathetenquadrats 

Berechnung des zweiten Kathetenquadrats 

Bestimmung der Summe der beiden Katheten¬ 
quadrate 

Bestimmung der Wurzel aus der Quadratsumme 
Ausdruck des Ergebnisses auf dem Bildschirm 
Beendigung des Programms 
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SChRITT 


Ergebnisse 


Nach dem Starten des Programms (erste Programm¬ 
version) erscheint auf dem Bildschirm die Überschrift : 


PROGRAMM ZUR BESTIMMUNG DER HYPOTHENUSE 
EINES RECHTWINKLIGEN DREIECKS. 

PROF.DR.W.VOSS, 1984 


Zwei Zeilen tiefer erhalten wir die erste Anforderung : 
ERSTE KATHETE : ? 

Geben wir daraufhin zum Beispiel den Wert 3 ein, so rea¬ 
giert der Rechner mit : 

ZWEITE KATHETE : ? 

Gfeben wir beispielsweise den Wert 4 ein, so antwortet der 
Rechner mit ; 

HYPOTHENUSE C = 5 


Dieses Programm eignet sich also dazu, für beliebige Ein¬ 
gaben die Hypothenuse rechtwinkliger Dreiecke auszurech¬ 
nen. In diesem Sinn ist es also ganz allgemein gehalten. 
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Wir haben dieses Problem hier sehr ausführlich behandelt, 
ura die Vorgehensweise bei den einzelnen Beispielen im De¬ 
tail zu illustrieren. Sicherlich werden wir uns bei den 
folgenden Beispielen daraufhin kürzer fassen können, zu¬ 
mindest wenn sie so einfach sind wie der Lehrsatz des 
Pythagoras. 
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g.g.T. und k.g.V, 



SChKITT 


Vorstellung des 
Problems 


Für viele algebraische Rechnungen ist es, ins¬ 
besondere beim Auftreten von Brüchen, sinnvoll, den größ ¬ 
ten gemeinsamen Teiler (g.g.T.) und das kleinste gemein ¬ 
same Vielfache (k.g.V.) verschiedener Zahlen zu kennen. 

Beim g.g.T. handelt es sich um den Wert, durch den zwei 
Zahlen ohne Rest dividiert werden können, ohne daß es 
eine größere Zahl gibt, für die dies möglich wäre. 

Beim k.g.V. handelt es sich um die Zahl, die durch zwei 
Ausgangszahlen ohne Rest dividiert werden kann, ohne daß 
es eine kleinere Zahl gibt, für die dies gilt. 

Haben wir zum Beispiel die beiden Zahlen ZI =30 und 
Z2 = 40', so ist der g.g.T. offenbar 10 und das k.g.V. 
hat den Wert 120. (Der Leser möge dies durch Kopfrechnen 
überprüfen). 
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SCHRITT 


Problemanalyse 


Wie findet man nun bei zwei gegebenen Zahlen 
den g.g.T. und das k.g.V.? 

Prüfen wir einmal anhand der beiden,Zahlen 30 und 40, 
wie sinnvollerweise vorzugehen ist, wenn man den g.g.T. 
finden will : 


1 . Schritt : 

40 : 

; 30 = 1 Rest 10 

2. Schritt ; 

30 : 

; 10 = 3 Rest 0 


In diesem Beispiel finden wir also den g.g.T. folgender¬ 
maßen : 


1. Schritt : Division der größeren durch die kleine¬ 

re Zahl; Notieren des Rests. 

2. Schritt : Division der kleineren Zahl durch den 

Rest; Notieren des neuen Rests. 

Wird dabei der neue Rest null, so ist der Divisor, der zu 
diesem Nullrest führte, der gesuchte g.g.T. 

Dazu noch ein zweites Beispiel zur Verdeutlichung ; 
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Feldl : ZI 

Feld2 : Z2 

Division 

Rest 

(größere 

Zahl) 

(kleinere 

Zahl) 



78 

42 

1 

36 

42 

36 

1 

6 

36 

6 

6 

0 


Der g.g.T. von 78 und 42 ist also 6. 


Das Berechnungsschema, wie es die obige Tabelle zeigt, 
läßt sich leicht in ein Flußdiagramm umsetzen. 

Zunächst wenden wir uns aber noch dem kleinsten gemein¬ 
samen Vielfachen (k.g.V.) zu : 

Das k.g.V. von zwei Zahlen ZI und Z2 kann man dadurch 
erhalten, daß man das Produkt dieser beiden Zahlen durch 
den g.g.T. dividiert. 

Für die beiden Zahlen ZI = 78 und Z2 = 42 gilt also : 

ZI * Z2 78 42 

k.g.V. = - = - = 546 

g.g.T. 6 

Wenn wir in einem BASIC-Programm diese Berechnung durch¬ 
führen wollen, gemäß der Übersichtstabelle oben^ aber 
fortwährend die Feldbesetzungen verändern, müssen vor 
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SCHRITT 


Flußdiagraitun 
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SCHRITT : Programm 


10 REM M2-GGT UND KGV 
20 CLS 

30 PRINT"PROGRAMM ZUR BESTIMMUNG DES G.G.T. UND" 

40 PRINT"DES K.G.V. AUS ZWEI EINGEGEBENEN ZAHLEN" 
^pRlRfNT:PRINT:PRINT TAB(10)"PROF.DR.W.VOSS, 1984" 

60 INPUT"GROESSERE ZAHL : ";Z1 

70 PRINT:PRINT 

80 INPUT"KLEINERE ZAHL : ";Z2 

90 H1=Z1:H2=Z2 

100 Q=Z1/Z2 

110 R=Z1-Z2*INT(Q) 

120 IF R>0 THEN Z1=Z2:Z2=R:GOTO 100 
130 GGT=Z2 
140 KGV=(H1*H2)/GGT 

150 PRINT:PRINT:PRINT"G.G.T. = ";GGT 

160 PRINT;PRINT:PRINT"K.G.V. = " ; KGV 

170 PRINT:PRINT"ENDE DER BERECHNUNG":END 




SCHRITT 


Variablenliste 


GGT T Größter gemeinsamer Teiler 
H1 : Hilfsfeld 1 

H2 : Hilfsfeld 2 

KGV : Kleinstes gemeinsames Vielfaches 

Q : Quotient aus beiden Zahlen ZI und Z2 

R : Divisionsrest 

ZI : Größere Zahl 

Z2 : Kleinere Zahl 
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SCHRITT 


Programmbeschreibung 


Satz 

Satz 6^ 
Satz 14 > 


: Überschrift und Erläuterungen 
; Eingabe der einen Zahl 
: Zwei Leerzeilen 


Satz 80 
Satz 90 


Satz 100 


Satz 110 


Satz 120 


Satz 130 


: Eingabe der zweiten Zahl 

; Belegung der beiden Hilfsfelder Hl und 
H2 mit den eingegebenen Werten, damit 
diese später noch zur Verfügung stehen 
(siehe 140) 

: Bestimmung des Quotienten aus beiden 
eingegebenen Zahlen 

: Bestimmung des Divisionsrestes durch 
Benutzung der INT-Funktion 

: Ist dieser Rest größer als null, wird 
das Feld ZI mit der zweiten Zahl Z2 
und das Feld Z2 mit dem Rest R belegt 
und das Programm kehrt zurück zu Satz 
100 - 

; Ist hingegen der Rest gleich null, so 
steht im Feld Z2 der g.g.T., der in 
das Feld GGT übertragen wird 






voß 

Kapitel 

2 

: Mathematik 

Seite 

Schule 

Abschnitt 

3 

: g.g.T. und k.g.V. 

57 


Satz 140 ; Gemäß unserer Vorüberlegungen bestimmt 

sich dann das k.g.V. aus dem Produkt 
der beiden Zahlen (die noch in den Fel¬ 
dern Hl und H2 zu finden sind), divi¬ 
diert durch den g.g.T. 


Satz 150-160 


Ausdruck der Ergebnisse mit einigen 
Leerzeilen dazwischen 


Satz 170 


: Beendigung des Programms 



SCHRITT 


Programmergebnisse 


Nach dem Konuaando RUN meldet das Programm auf einem 
"geräumten" Bildschirm ; 

PROGRAMM ZUR BESTIMMUNG DES G.G.T. UND 
DES K.G.V. AUS ZWEI EINGEGEBENEN ZAHLEN 

PROF.DR.W.VOSS, 1984 

GROESSERE ZAHL : ? 

Geben wir nach Erscheinen dieses Fragezeichens, das ja 
bekanntlich eine Programmunterbrechung anzeigt, bei- 
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Primzahlenprüfunq 



SCHRITT 


Vorstellung des 
Problems 


Es soll ein Programm entwickelt werden, wel¬ 
ches für eine beliebige eingegebene, positive, ganze 
Zahl prüft, ob diese eine Primzahl ist oder nicht. 

Bekanntlich handelt es sich bei einer Primzahl um eine 
Zahl, die nur durch 1 oder durch sich selbst ohne Rest 
teilbar ist. 











Voß 

Kapitel 

2 

: Mathematik 

Seite 

Schule 

Abschnitt 

4 

; Primzahlenprüfung 

60 



SCHRITT 


Problemanalyse 


Um zu prüfen^ ob eine beliebige Zahl eine 
Primzahl ist, muß sie durch alle Teiler, die größer 
als 1, aber kleiner als sie selbst sind, geteilt wer¬ 
den. Sofern bei diesen Divisionen ein Rest auftritt, 
bzw. wenn das Divisionsergebnis nicht ganzzahlig ist, 
muß durch einen weiteren Teiler dividiert werden. 

Erzielt man bei einer dieser Divisionen ein Ergebnis 
ohne Rest, so ist die zu prüfende Zahl offenbar keine 
Primzahl. 

Wird bei allen denkbaren Divisionen hingegen ein Rest 
beobachtet, so ist schließlich festzustellen, daß die 
zu prüfende Ausgangszahl eine Primzahl ist. 

Die Teiler, die im einzelnen durchprobiert werden müs¬ 
sen, beginnen beim Wert 2 und können bei der Hälfte der 
Ausgangszahl enden; größere Teiler brauchen nicht pro¬ 
biert zu werden, weil dann auf gar keinen Fall mehr ein 
ganzzahliges Divisionsergebnis erzielt werden kann. 

Beispiel : Ausgangszahl X = 25 


1 . 

Teiler : 

2 

25/2 = 

12 

Rest 

1 

2. 

Teiler : 

3 

25/3 = 

8 

Rest 

1 

3. 

Teiler : 

4 

25/4 = 

6 

Rest 

1 

4. 

Teiler : 

5 

25/5 = 

5 

Rest 

0 


25 ist keine Primzahl. 
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Beispiel ; Ausgangszahl X = 7 

1. Teiler : 2 7/2 = 3 Rest 1 

2. Teiler : 3 7/3 = 2 Rest 1 

Ein weiterer Teiler braucht nicht mehr pro¬ 
biert zu werden, weil das Divisionsergebnis 
nicht mehr ganzzahlig werden kann. 

Da bei diesem Beispiel kein Rest 0 aufgetreten ist, 
gilt also ; 

7 ist eine Primzahl. 

Diese beiden Beispiele zeigen, daß wir Schritt für 
Schritt aen Teiler, mit dem Wert 2 beginnend, um je 
1 erhöhen müssen, bis maximal der Wert X/2 erreicht 
ist. 
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SCHRITT 


Flußdiagramm 
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Dieses Beispiel zeigt übrigens sehr deutlich, daß bei 
sorgfältiger gedanklicher Durchdringung des Problems 
das Programm wesentlich vereinfacht und damit auch be¬ 
schleunigt werden kann ; 

Man kann schon von vornherein feststellen, daß eine ge ¬ 
rade Zahl keine Primzahl sein kann, denn sie ist ja auf 
jeden Fall durch 2 teilbar. Deshalb können gerade Zah¬ 
len schon zu Beginn des Prüfprogramms als "Nicht-Prim¬ 
zahlen" ausgeschieden werden. 

Bei den verbleibenden, den ungeraden Zahlen braucht 
für eine beliebige Zahl X der Teiler offenbar nicht 
bis X/2 zu laufen, sondern es genügt, wenn wir bis ma¬ 
ximal /r die Divisionen probieren. Wenn bis dahin 
keine Division ohne Rest möglich war, dann wird dies 
auch bei größeren Teilern nicht mehr möglich sein. 

Der Leser überlege sorgfältig, warum diese Überlegung 
richtig ist. 
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SCHRITT 


Programm 


10 REM M3-PRIMZAHL 
20 CLS 

30 PRINT"PROGRAMM ZUR PRUEFUNG, ÜB EINE EINGEGE-" 
40 PRINT"BENE ZAHL EINE PRIMZAHL IST ODER NICHT." 
SpRlß^NT:PRINT:PRINT TAB(10)"PROF.DR.W.VOSS, 1984" 

60 INPUT "BITTE EINE GANZE ZAHL : ";X 
70 T=2 

00 IF X/2=INT(X/2) THEN 140 
90 Q*X/T 

100 IF Q=INT(Q) THEN 140 
110 T=T+1 

120 IF T<=SQR(X) THEN 90 

1-^go^’RINT: PRINT: PRINT Xj " IST EINE PRIMZAHL. ": GOTO 
^^g,.PRINT:PRINT:PRINT X;" IST KEINE PRIMZAHL, SOND 
145 PRINT"DURCH ";T;" TEILBAR." 

150 PRINT;PRINT:PRINT"ENDE DER BERECHNUNGEN.":END 



SCHRITT 


Variablenliste 


Q = Quotient aus der Zahl X und dem Teiler T 
T = Teiler 

X = Einzugebende Zahl, die daraufhin geprüft wird, ob 
sie Primzahl ist oder nicht 
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SCHRITT 


Programmbeschreibung 


Satz 10-5^ ; Überschrift, Räumung des Bildschirms und 

Titelausdruck auf dem Bildschirm. 


Satz 60 


; Anforderung der zu prüfenden Zahl. 


Satz 70 


: Belegung des Teilerfeldes T mit 2. 


Satz 80 ; Wenn X durch 2 ohne Rest teilbar sein 

sollte (dann ist X/2 = INT(X/2)), dann 
weiter bei Satz 140; wenn nicht, weiter 
bei Satz 90. 


Satz 90 
Satz 100 


Satz 110 
Satz 120 


Satz 130 


; Division von X durch T (ergibt Q). 

: Wenn bei der Division kein Rest aufge¬ 
treten ist (dann ist Q = INT(Q)), dann 
weiter bei Satz 140, andernfalls weiter 
bei Satz 110. 

: Erhöhung des Teilers T um 1. 

: Solange nach dieser Erhöhung T noch klei¬ 
ner ist als ß. geht es zurück zum Satz 
90, andernfalls geht es bei 130 weiter. 

: Wird der Satz 130 erreicht, dann deshalb, 
weil keine Division ohne Rest vollzogen 
werden konnte. Dies bedeutet, daß X eine 
Primzahl sein muß. 


Dieses Ergebnis wird ausgegeben und es 
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erfolgt ein Sprung zum Satz 15^. 

Satz 140 ; Satz 140 wird nur in dem Fall erreicht, in 
und 145 dem eine Division ohne Rest gelungen ist. 

Dies bedeutet aber dann, daß X keine Prim¬ 
zahl ist, sondern (zumindest) durch den 
Wert im Feld T teilbar ist. 

Dies wird ausgegeben. 

Satz 150 : Beendigung des Programms. 



SCHRITT 


Ergebnisse 


Auf die Wiederholung des Titelausdrucks wollen wir nun 
hier und bei den folgenden Beispielen verzichten. 

Nachdem dieser Titelausdruck erfolgt ist, fordert das 
Programm die zu prüfende Zahl an und speichert sie im 
Feld X (auch auf die Wiedergabe der entsprechenden An¬ 
forderungstexte soll hier und bei den folgenden Bei¬ 
spielen verzichtet werden). 

Geben wir z.B. die Zahl 13 ein, so meldet der Rechner : 
13 IST EINE PRIMZAHL. 

ENDE DER BERECHNUNGEN. 
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Geben wir hingegen die Zahl 27 ein, so meldet der Rech¬ 
ner ; 


27 IST KEINE PRIMZAHL, SONDERN DURCH 
3 TEILBAR. 

ENDE DER BERECHNUNGEN. 
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Quadratische Gleichung 



SCHRITT 


Vorstellung des 
Problems 


Das Lösen quadratischer Gleichungen gehört zu 
den wesentlichen Aufgabenstellungen der Mittelstufen- 
mathematik und bereitet auf komplexere Aufgaben vor. 

Die allgemeine Form einer quadratischen Gleichung, die 
nach der Unbekannten x aufzulösen ist, lautet : 


( 1 ) 


ax 


bx + c = 0 


Dividiert man diese Gleichung durch den Koeffizienten 
a, so erhält man : 


(2) x^ + px + q = ^ 


Die Lösung führt zu zwei Werten x^ und X 2 gemäß der 
folgenden Lösungsformel : 


(3) 


M/2 


= “ p/2 


V 


p /4 - q 
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SCHRITT 


Problemanalyse 


Je nach Konstellation der Koeffizienten a, b und c 
führt die Lösungsformel (3) zu unterschiedlichen Er¬ 
gebnissen. 

Beispielsweise erhalten wir Resultate außerhalb des 
reellen Zahlenbereichs, wenn der Wert unter der Wurzel 
negativ wird. Dieser Wert heißt Diskriminante (D). 

Zu Sonderlösungen gelangt man auch z.B. dann, wenn der 
Koeffizient a = 0 ist; dann liegt aber auch eigent¬ 
lich keine quadratische Gleichung mehr vor. 

Deshalb betrachten wir im folgenden nur die "echten" 
Fälle (a ^ 0) und zugleich die im reellen Bereich lös¬ 
baren Fälle (D > 0). Bei allen anderen Fällen soll das 
Programm eine Abbruchmeldung erzeugen. 

Zur Lösung des Problems verwenden wir einfach die For¬ 
mel (3) in der abgewandelten Form (4) ; 

(3) - q 

H steht als 

-V2 . H 1 |f7 


Das entsprechende BASIC-Programm muß also zunächst die 
Größen H und D bestimmen und kann dann, in Abhängigkeit 
davon, ob D ^ 0 oder D<0, die Lösungen bzw. eine Ab¬ 
bruchmeldung ausgeben. 
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SCHRITT 


Flußdiagramm 
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SCHRITT 


Programm 


10 REM M4-QUADRATISCHE GLEICHUNG 
20 CLS 

30 PRINT"PROGRAMM ZUR LOESUNG EINER QUADRATISCHEN" 
40 PRINT TAB(16)"GLEICHUNG." 

SpRp^^NT : PR I NT:PR I NT TAB (10)" PROF.DR. W .VOSS , 1984" 

60 INPUT "PARAMETER DES QUADR.GLIEDS A : ";A 

70 INPUT "PARAMETER DES LIN.GLIEDS B : ";B 

80 INPUT "KONSTANTES GLIED C : ";C 

90 P=B/A:Q=C/A 
100 H=-P/2:D=P*P/4-Q 

PRINT: PR INT "LOESUNG NICHT MOEGLICH 

120 X1=H+SQR(D):X2=H-SQR(D) 

130 PRINT:PRINT:PRINT"ERSTE LOESUNG XI = ";X1 
140 PRINT:PRINT:PRINT"ZWEITE LOESUNG X2 = ";X2 
150 PRINT:PRINT:PR INT"ENDE DER BERECHNUNGEN";END 



Variablenliste 


SCHRITT 


A = Koeffizient des quadratischen Teils 

B = Koeffizient des linearen Teils 

C = Konstante in der quadratischen Gleichung 

D = Diskriminante 

H = -P/2 

P = B/A 
Q = C/A 

XI = erste Lösung 

X2 = zweite Lösung 
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SCHRITT 


Programmbeschreibung 


Satz 1^-5^ : Kommentar und Uberschriftausgabe 

Satz 6^-8^ : Eingabe der Koeffizienten der quadrati¬ 

schen Gleichung (in der Form der Glei¬ 
chung (1) ) 

Satz 9^ : Bestimmung von P und Q gemäß Gleichung (2) 

Satz : Bestimmung der Hilfsgröße H und der Dis- 

kriminate D 

Satz 110 : Wenn D kleiner als null ist, so erfolgt 

eine Abbruchmeldung auf dem Bildschirm 
und ein Sprung zu Satz 150 


Satz 120 : Ist die Diskriminante hingegen nicht ne¬ 

gativ, so werden die beiden Lösungen XI 
und X2 berechnet 


Satz 130-140: Beide Lösungen werden auf dem Bildschirm 
ausgegeben 

Satz 150 : Beendigung des Programms 
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SCHRITT 


Ergebnisse 


Geben wir z.B. ein : 

A = 4, Der Leser sollte 

B = 4, auch andere Werte 

C = “24, erproben 1 

geht es also um die quadratische Gleichung ; 

4x^ + 4x - 24 = , 

so erzeugt das Programm als Ergebnisausgabe : 

X1 = 2 
X2 = -3 

ENDE DER BERECHNUNGEN 
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Euler'sehe Zahl 



SCHRITT 


Vorstellung des 
Problems 


Die Euler'sehe Zahl, abgekürzt e, aueh Waehs- 
tumskonstante genannt, spielt bei mathematisehen Reihen- 
entwieklungen, die inhaltlieh als Waehstums- oder Fort¬ 
pflanzungsketten betraehtet werden können, eine wiehti- 
ge Rolle. 

Sie dient darüberhinaüs als Basis der sog. natürliehen 
Logarithmen und wird uns im Kapitel über wirtsehaftli- 
ehe Problemstellungen wieder begegnen. 

Wenn man den Wert dieser Zahl e vergessen hat, kann man 
mit Hilfe eines geeigneten BASIC-Programms diesen Wert 
ausrechnen, sofern man weiß, wie die Zahl e zustande¬ 
kommt . 

Es handelt sich bei e um den Grenzwert der folgenden 
Größe, wenn n gegen unendlich strebt ; 


e = (1 + 1/n)^ für n gegen unendlich. 











Voß 

Kapitel 2 : Mathematik 

Seite 

Schule 

Abschnitt 6 : Euler'sehe Zahl 

75 



SCHRITT 


Problemanalyse 


Die Problemanalyse ist bei dieser Fragestellung sehr 
einfach, denn es ist lediglich die vorangegangene For¬ 
mel zu programmieren. 

Dieses Programm kann dann für alternative, größer wer¬ 
dende Werte von n durchprobiert werden. Da der Wert e 
erst für n gegen unendlich erreicht wird, empfiehlt es 
sich, n rasch wachsen zu lassen, z.B. dadurch, daß man 
n von Rechendurchgang zu Rechendurchgang verdoppelt. 

Dies verlangt allerdings, daß man mit einem n-Wert be¬ 
ginnt, der größer als 1 ist (also z.B. mit n = 2), da¬ 
mit bei den Verdoppelungen n nicht beim Wert 1 verharrt. 
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SCHRITT 


Flußdiagramm 



Es wird davon 
ausgegangen,daß 
12 "Runden" zu 
durchlaufen 
sind. 










































Voß 

Kapitel 2 ; Mathematik 

Seite 

Schule 

Abschnitt 6 ; Euler'sehe Zahl 

77 



SCHRITT 


Programm 


10 REM M5-EULER 
20 CLS 

30 PRINT"PRÜGRAMM ZUR BESTIMMUNG DER ZAHL E." 

40 PRINT 

pgj^^’INT: PRINT; PRINT TAB (9) "PROF. DR. W. VOSS, 1984"; T 
60 N=2 

70 PRINT" N"," E":PRINT 

80 FOR 1=1 TO 12 

90 E=(1 + 1/N)'’N 

100 PRINT N,E 

110 N=N*2 

120 NEXT I 

130 PRINT"ENDE":END 


SCHRITT : Variablenliste 

E = Euler'sehe Zahl (Näherungswert) 

I = Schleifenzählindex 

N = Parameter in der Berechnungsformel für die Euler' 
sehe Zahl 
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SCHRITT 


ProgrammbeSchreibung 


Satz 10-5^5 


: Überschrift 


Satz 60 


; Belegung deä Parameters N mit dem Start¬ 
wert 2 


Satz 70 


: Ausgabe einer Tabellenüberschrift und 
einer Leerzeile 


Satz 80-120 : Schleife über 12 Runden. In jeder Runde 

wird E berechnet, werden N und E ausge¬ 
geben und wird N verdoppelt 


Satz 130 


; Ende des Programms 



SCHRITT 


Ergebnisse 


Dieses Programm erzeugt eine Tabelle, in der anwachsen¬ 
den N-Werten die berechneten E-Werte gegenübergestellt 
werden. 

Man sieht bei dieser Gegenüberstellung, daß sich e einem 
festen Wert annähert. 

Wollte man diesem Grenzwert noch näher kommen, dann 
müßte das Programm noch mehr Schleifendurchläufe erle- 
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digen. Man müßte also den Satz 8<^ beispielsweise wie 
folgt ändern : 


Q(^ FOR I = 1 TO 30 


Es ist allerdings dabei zu beachten, daß bei zu hohen 
Werten für n die Rechenungenauigkeiten des Computers zu 
Fehlern führen kann. 

Die sich durch obiges Programm ergebende Tabelle sieht 
folgendermaßen aus : 


N 

E 

2 

2.25 

4 

2.44140625 

8 

2.56578451 

16 

2.63792850 

32 

2.67699013 

64 

2.69734495 

128 

2.70773901 

256 

2.71299162 

512 

2.71563199 

1024 

2.71695572 

2048 

2.71761848 

4096 

2.71795007 


ENDE 
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Prozentrechnung 



SCHRITT 


Vorstellung des 
Problems 


Beim Prozentrechnen spielt die Dreis^tzrech- 
nung eine entscheidende Rolle. Sie beantwortet zum Bei¬ 
spiel üie Frage, welchen Anteil ein bestimmter Betrag 
B an einer Gesamtgröße G ausmacht. Ein typisches Bei¬ 
spiel kann diese Aufgabenstellung gut verdeutlichen : 

Ein Rechnungsbetrag beläuft sich auf netto DM 45^5. —. 
Der Kunde muß zusätzlich die sog. Mehrwertsteuer bezah¬ 
len, die derzeit 14 % des Nettorechnungsbetrages aus¬ 
macht. Somit ergibt sich also : 


Bruttobetrag = Nettobetrag + Steuerbetrag 


Die Rechenaufgabe, die sich hier stellt, besteht also 
darin, den Steuerbetrag und danach den Bruttobetrag zu 
bestimmen, wenn der Nettobetrag und der Steuer-Prozent¬ 
satz gegeben sind. 

Natürlich könnte man genauso gut nach dem Nettobetrag 
fragen, wenn z.B. der Steuersatz und der Bruttobetrag 
gegeben sind. 
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SCHRITT 


Problemanalyse 


Das oben genannte Beispiel kann mit der Dreisatzrechnung 
folgendermaßen gelöst werden (und zeichnet uns so den 
Lösungsweg vor) : 


Nettobetrag = 10^ % entsprechen 45^.- DM 
Steuerbetrag= 14 % entsprechen x DM 


X 


45jz5 * 14 


63.- (DM) 


Damit wird der Lösungsweg deutlich : Wir müssen in ein 
allgemein gehaltenes Programm den Nettobetrag eingeben 
und dazu den Steuersatz (oder allgemein gesprochen, den 
Prozentsatz, der beliebig sein kann, wenn das Programm 
generell einsetzbar sein soll). 





































Voß 

Kapitel 

2 ; Mathematik 

Seite 

Schule 

Abschnitt 

7 : Prozentrechnung 

83 



SCHRITT 


Programm 


10 REM M6-PR0ZEN1 
20 CLS 

30 PRINT"PROGRAMM ZUR BESTIMMUNG VON PROZENTWER-" 
40 PRINT TAB(18)"TEN." 

pg j INT:PRINT:PRINT TAB(9)"PROF.DR.W.VOSS, 1904": 

60 INPUT "NETTOBETRAG : ";NB 

70 PRINT:INPUT "PROZENTSATZ : " ; SS 

80 SB=NB*SS/100 
90 BB=NB+SB 
95 PRINT:PRINT 

100 PRINT:PRINT:PRINT"NETTOBETRAG : " ; NB 

110 PRINT:PRINT"PROZENTBETRAG : ";SB 

120 PRINT:PRINT"BRUTTOBETRAG : ";BB 
130 PRINT:PRINT"ENDE":END 



SCHRITT 


Variablenliste 


BB = Bruttobetrag 
NB = Nettobetrag 
SB = Prozentbetrag 

SS = Prozentsatz 
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SCHRITT 


Programmbeschreibung 


Satz 1^-5^ 
Satz 6?i-70 
Satz 80-90 

Satz 95 


Überschrift. 

Eingabe von Nettobetrag und Prozentsatz. 

Berechnung von Prozentbetrag und Brutto¬ 
betrag. 

Zwei Leerzeilen. 


Satz 100-120 : Ausgabe der Ergebnisse auf dem Bild¬ 

schirm. 

Satz 130 : Ende des Programms. 


© 


SCHRITT 


Ergebnisse 


Gibt man beispielsweise als Nettobetrag 200 und als Pro¬ 
zentsatz den Wert 15 ein, so meldet das Programm ; 


NETTOBETRAG 

PROZENTBETRAG 

BRUTTOBETRAG 

ENDE 


200 
30 
2 30 
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28 Würfel 



SCHRITT 


Vorstellung des 
Problems 


Es soll ein Programm vorgestellt werden, 
welches 100 mal "würfelt" und den Durchschnitt 
dieser Augenzahlen ausgibt. 

Man kann sich zu diesem Zweck der Funktion RND 
(RND = random = Zufall) bedienen, die Zufallszah¬ 
len zwischen 0 bis unter 1 erzeugt. 

Zufallszahlen nennt man solche Zahlen, die in un¬ 
regelmäßiger und unsystematischer Folge auftreten 
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SCHRITT ; Problemanalyse 


Beim SCHNEIDER CPC 464 kann die Funktion RND ohne 
Argument benutzt werden. 

Der Leser sollte diese Funktion einfach einmal er¬ 
proben, indem er beispielsweise eingibt: 

PRINT RND 

und noch einmal: 

PRINT RND 
oder noch besser: 

FOR I = 1 TO 1jzS : PRINT RND : NEXT 
und danach die ENTER-Taste. 

Auf dem Bildschirm erscheinen Zufallszahlen, die 
alle zwischen 0 bis unter 1 liegen. 

Wir hätten nun aber gern als Ergebnisse 100 ganz¬ 
zahlige Werte zwischen 1 und 6 - eben Würfel-Augen- 
zahlen. 
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Das folgende Schema verdeutlicht, wie man aus Zu¬ 
fallszahlen aus dem Wertebereich zwischen 0 bis 
unter 1 ganze Zahlen zwischen 1 und 6 erzeugen 
kann: 


Verarbeitung 

Ergebnis 

RND-Funktion 

zwischen 0 bis 
unter 1 

6 

zwischen 0 bis 
unter 6 


zwischen 1 bis 
unter 7 

■ INT-Funktion 

ganzzahlig zwi¬ 
schen 1 bis 6 


Damit ist der Problemlösungsweg vorgezeichnet. 

Da schließlich noch der Durchschnitt gewünscht 
wird, sind alle Ergebnisse aufzuaddieren und die 
entstehende Summe durch 100 zu teilen. 
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SCHRITT 


Flußdiagramm 


^ Start ^ 


1=1 


_ 


Erzeuge 

I-te 

Zufalls¬ 
zahl X 




X=6*ifX 





X=X+1 


4 


X=INT(X) 


f 
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SCHRITT 


Programm 


10 REM M7-WUERFEL 
20 CLS 

30 PR INT"PROGRAMM ZUR ERZEUGUNG VON 100 WUERFEL" 
40 PRINT"WUERFEN UND DER DURCHSCHNITTLICHEN AU-" 
50 PRINT TAB(16)"GENZAHL." 

60 PRINT;PRINT:PRINT 

70 PRINT TAB(9)"PROF.DR.W.VOSS, 1984":PRINT 
80 1 = 1 
90 X=RND 

100 X=X*6:X=X+1:X=INT(X) 

110 PRINT X; 

120 S=S-*-X 
130 1=1+1 

140 IF ICIOI THEN 90 

150 AM=S/100 

160 PRINT:PRINT:PRINT 

170 PRINT;PRINT"MITTELWERT = " ; AM 

180 PRINT:PRINT"ENDE DER AUSGABE":END 


SCHRITT : Variablenliste 


AM = Mittelwert 

I = Laufindex (Rundenzähler) 

S = Summe aller Würfelergebnisse 

X = Zufallsergebnis 
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b JSCHRITT 


Programmbeschreibung 


Satz 10- 70 
Satz 80 
Satz 90-100 


Satz 110 
Satz 120 

Satz 130 

Satz 140 

Satz 150-170 

Satz 180 


: Überschrift 

: Vorgabe des Rundenzählers 

: Erzeugung einer Zufallszahl 
und Transformierung in einen 
ganzzahligen Wert zwischen 
1 und 6 

; Ausgabe 

: Erhöhung der Summe S um das 
tVürfelergebnis" X 

: Erhöhung des Rundenzählers'I 
um 1 

: Solange I kleiner als 101 ist, 
geht es zurück zu Satz 90 

: Berechnung des Mittelwerts 
und Ausgabe 

: Beendigung des Programms 
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SCHRITT 


Ergebnisse 


Wenn wir dieses Programm starten, so erzeugt der 
Rechner nach der üblichen Überschrift 100 zufällige 
Würfelergebnisse und gibt diese zeilenweise aus 
(der Leser überlege, warum eine zeilen weise Ausgabe 
erfolgt). 

Danach wird der Durchschnitt aus den 100 Ergebnissen 
berechnet und ausgegeben, der - wenn der Zufalls¬ 
zahlengenerator in Ordnung ist - in der Nähe von 3.5 
liegen muß. 

Da die Ergebnisse zufallsabhängig sind, können sie 
sinnvollerweise hier nicht dargestellt werden. 
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Probleme der Rechengenauigkeit 


Ein Computer wie der SCHNEIDER CPC 464 reser¬ 
viert für jede reelle Zahl, mit der gerechnet wird, 
nur eine bestimmte Zahl von Bytes. Dies bedeutet, daß 
er nur mit beschränkter Genauigkeit arbeiten kann. 

Man sieht dies sehr deutlich, wenn man in dem folgen¬ 
den Programm "große" Werte vorgibt, und diese sich 
wieder ausdrucken läßt : 


REM ZAHLENGENAUIGKEIT 
A=12345678 
B=123456789 
H C=1234567891 
59^ D=12345678912 
6^ ?A:?B:?C:?D 
70 END 


Als Ergebnisse erhalten wir : 


12345678 
123456789 
1.234567E+09 
1.234567E+10 


Bekommt der Rechner also Zahlen mit mehr als 9 Ziffern 
(Beispiel C und D), dann wandelt er sie bei der Ausgabe 
in die sog. Exponentialdarstellung um und druckt z.B. 
für C : 
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1.234567E+09 


Dies ist zu lesen als : 


1.234567 * 10^ = 1.234567 * 1 000 000 000 


Dieses Produkt wiederum ergibt : 


1 234 567 000 


Der Rechner hat also beim Wert für C die letzten 
Stellen "unterschlagen"; er kann sie nicht mehr 
berücksichtigen. 

Allerdings wird, wie man an entsprechenden Beispie¬ 
len zeigen kann, bei diesem "Unterschlagen" nicht einfach 
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nur "abgeschnitten", sondern korrekt gerundet. 

Das Hauptproblem dabei ist nun folgendes : 

Wenn wir beispielsweise zum Wert D in obigem Programm 
den Wert 1 addieren, etwa in der neuen Programmzeile 55: 

55 E = D + 1 

und auch diesen Wert E ausdrucken lassen : 


65 ?E 


so erkennen wir keinen Unterschied in den Werten für D 
und E - der Rechner rechnet falsch i 

Alf dieses Problem muß man also immer dann achten, 
wenn man z.B. sehr große mit sehr kleinen Zahlen (und 
umgekehrt) verrechnen will. 
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Kapitel 3 : Chemie 



Zusätzliche BASIC-Anweisungen 


Will man Programrae aus dem Bereich der Chemie 
programmieren, so kann' man hervorragend die Graphik- 
und Farbmöglichkeiten des SCHNEIDER CPC 464 ausnutzen - 
etwa zur graphischen Darstellung von Molekülen oder von 
chemischen Verbindungen. 

Beispielsweise kann man das Wassermolekül 


H2O , 

das ja Dekanntlich aus zwei Wasserstoffatomen (H) und 
einem Sauerstoffatom (0) zusammengesetzt ist, anschau¬ 
lich folgendermaßen darstellen : 
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o 

o 
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H 


2 


0 


Um solche Darstellungen erzeugen zu können, benötigt 
man zusätzliche Anweisungen. Diese beziehen sich zum 
einen auf die Farberzeugung und den Farbenwechsel in¬ 
nerhalb eines laufenden Programms und zum anderen auf 
die Verwendung spezieller Symbole (auf die Möglich¬ 
keiten der sog. hochauflösenden Graphik kommen wir 
erst in einem späteren Kapitel zu sprechen). 

Zur Anfertigung solcher und ähnlicher Zeichnungen eig¬ 
net sich hervorragend der GraphikZeichen-Vorrat des 
SCHNEIDER CPC 464 (siehe Bedienungshandbuch). 

Diese Zeichen, die unter den ASCII-Codezahlen 126 ff 
zu finden sind (dabei sind auch noch einige spezielle 
Sonderzeichen und z.B. ein paar griechische Buchstaben) 
sind aufrufbar mit der früher kurz erwähnten Funktion 

CHR$ (Argument) 

Das Argument dieser Funktion ist die ASCII-Codezahl 
des gewünschten Symbols. 
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Gibt der Benutzer zum Beispiel ein: 

PRINT ChR3(231) 

so erscheint auf dem Bildschirm ein Symbol, das einem 
Kügelchen ähnelt. 

In diesem Zusammenhang einige Hinweise zur Farbgestal¬ 
tung für die Glücklichen, die einen Farbfernseher an¬ 
geschlossen haben (es sei darauf hingewiesen, daß die¬ 
jenigen der folgenden Programme, die mit Farbeffekten 
arbeiten, auch bei angeschlossenen Schwarz-Weiß-Geräten 
funktionieren - unterschiedliche Farben stellen sich 
dann als unterschiedliche Grüntöne bzw. Schraffuren 
dar) . 

Wenn der SCHNEIDER CPC 464 eingeschaltet wird, befindet 
er sich im sog. Modus 1 (4o Zeichen pro Zeile) und bei 

angeschlossenem Farbmonitor werden die Ausgaben gelb 
auf dunkelblau dargestellt. 

Die Ausgabefarben können mit folgender Anweisung geän¬ 
dert werden: 


Statement 12: 



nn 

PEN 

Zahl 


Im Modus 1 sind mit dieser Anweisung vier unterschied¬ 
liche Farben gemäß der folgenden Angaben darstellbar: 


Zahl 

Farbe 

1 

gelb 

2 

hellblau 

3 

rot 

4 

blau 
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Die letzte Farbe führt allerdings zu Ausgaben, die 
auf dem blauen Hintergrund nicht sichtbar werden. 

Mit dem folgenden Programm können drei verschiedenfar¬ 
bige Kügelchen untereinander ausgegeben werden: 


10 FÜR 1=1 TO 3 
20 PEN 1 

30 PRINT I,CHR^^(231) 
40 NEXT 1 
50 END 


Hinweis: 


Wenn beim Farbexperimentieren (oder auf andere Weise) 
der Benutzer in eine "Sackgasse" gerät, in der "nichts 
mehr geht", so kann er den Rechner in den Grundzustand 
versetzen durch gleichzeitiges Drücken der Tasten 


CTRL 


SHIFT 

und 


ESC 


Allerdings geht dann ein gerade im Rechner befindliches 
Programm verloren. 

Weiterhin benötigen wir in diesem Kapitel und in den 
meisten der folgenden auch einige Anweisungen, die es 
uns erlauben, größere Informationsmengen geschickter 
als dies per LET- oder INPUT-Statement möglich wäre, in 
den Rechner zu bekommen. 

Dazu eignet sich besonders gut das DATA-Statement in 
Verbindung mit dem READ-Statement. 
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Statement 13: 


nn DATA Wert1,Wert2,Wert3,... 


Statement 14: 


nn READ Variabiel,Variable2,Variable3,... 


Beispiel : 


1<Z5 REM DATENEINGABE 

20 DATA 4600,DORTMUND,4630,BOCHUM,8000 
30 DATA MUENCHEN,2000,HAMBURG 
40 READ PI,01^,P2,02^,P3,03$,P4,04$ 

50 ?P1,01$:?P2,02^:?P3,03^:?P4,04^ 

60 END 


Der Leser erprobe dieses Programm. 


Bei großen Datenbeständen empfiehlt es sich, nur einen 
Variablennamen zu verwenden, der dann aber mehrere Wer¬ 
te erfaßt. Dies gelingt durch Verwendung indizierter 
Variablen, wie man sie ja zum Beispiel aus der Mathema¬ 
tik kennt, üblicherweise schreibt man in der Mathema¬ 
tik : 
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, x^, ... allgemein 


Dies geht auch in entsprechender Weise in der Program¬ 
miersprache BASIC : 

X(1), X(2), X(3), ...allgemein X(I) 

(generell : 

Variablenname{Indexname)) 


Bei Verwendung solcher indizierten Variablen muß aber 
dem Rechner zu Beginn des entsprechenden Programms 
mitgeteilt werden, wieviele Speicherplätze für die je¬ 
weilige Variable freigehalten werden müssen. 

Dies leistet das DIM-Statement : 


Statement 15: 


nn DIM Var.namel(Zahl1),Var.name2{Zahl2), ... 


Beispielsweise hält das Statement 


10 DIM X(20) 

für die Variable X 2^1 Speicherplätze frei. 
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Es handelt sich dabei um die Plätze X(0), X(1), X(2), 
X(3), ... , X(20). 

Ergänzend ist darauf hinzuweisen, daß zum Beispiel 
auch doppelte Indizierungen möglich sind ; 

Das Statement 

DIM Z(2,3) 

hält für die Variable Z 3*4 = 12 Plätze frei, die man 
sich in drei Zeilen und vier Spalten aufgeteilt vor¬ 
stellen kann : 



Z((!i,1) 

Z((Zi,2) 

Z(«i,3) 


Z(1,1) 

Z(l,2) 

Z(1,3) 

Z(2,«i) 

Z(2,l) 

Z(2,2) 

Z(2,3) 


Die allgemeine Schreibweise lautet in diesem Fall ; 
Z(I,J) 

Der erste Index (hier I) ist der sog. Zeilenindex, der 
zweite (hier J) der Spaltenindex. 

Zum Abschluß muß erwähnt werden, daß mit den READ-Sta- 
tements eines Programms immer in Abfolge auf die vor¬ 
handenen DATA-Statements zugegriffen wira. Dies be¬ 
deutet, daß ein zweites READ-Statement dort in den 
vorhandenen DATA-Statements fortfährt zu lesen, wo 
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das vorangegangene READ-Statement aufgehört hat. 

Häufig ist es nun allerdings sinnvoll, daß mit einem 
zweiten (oder sonst folgenden) READ-Statement die DATA- 
Liste wieder von Anfang an gelesen wird. 

Um dies zu ermöglichen, benötigt man ein weiteres Sta¬ 
tement ; 


Statement 16: 


nn RESTORE 


Dieses Statement bewirkt, daß der "Lesezeiger" wieder 
an den Anfang des ersten DATA-Statements gestellt wird, 
so daß die Daten mit dem folgenden READ-Statement wie¬ 
der von Anfang an gelesen werden. 
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Das Wassermolekül 



SCHRITT 


Vorstellung des 
Problems 


Es soll mit Hilfe eines BASIC-Programms ein 
graphisches Abbild des Wassermoleküls (H 2 O) erzeugt 
weraen (siehe auch Abschnitt 3.1). Die Wasserstoff¬ 
atome sollen z.B. als gelbe Kügelchen, das Sauerstoff¬ 
atom als rotes Kügelchen präsentiert werden. 

Mit einem derartigen Programm hätte man dann einen 
Grundbaustein auch für komplexere Programme graphi¬ 
scher Darstellungen dieser Art zur Verfügung. 



SCHRITT 


Problemanalyse 


Wenn man das Bild, welches durch das Programm entstehen 
soll, schon vor Augen hat, dann ist in diesem Beispiel 
aie Problemanalyse sehr einfach : 

Es soll genau das Bild erzeugt werden, das wir schon 
zu Beginn des Abschnitts 3.1 gezeichnet haben. 

Wir erkennen, daß dieses Bild sich aus vier Zeilen auf¬ 
baut : 
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1. Zeile : Ein gelbes Kügelchen und ein Schräg¬ 

strich von links oben nach rechts 
unten. 

2. Zeile : Ein rotes Kügelchen (nach rechts ver¬ 

setzt) . 

3. Zeile : Ein gelbes Kügelchen unter dem der er¬ 

sten Zeile und ein Schrägstrich von 
links unten nach rechts oben. 


4. Zeile ; Text : H2-0 . 


Das Kügelchen erzeugen wir, wie schon zuvor, mit dem 
ASCII-Codezeichen mit der Nummer 231 (mit Hilfe der 
CHR^-Funktion). 


Entsprechend hat der Schrägstrich von links oben nach 
rechts unten (\) die Codezahl 205 und der umgekehrte 
Schrägstrich (/) die Codezahl 204 (zu entnehmen dem 
Anhang III der englischen Version des Betriebshandbuchs). 
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SCHRITT 


Flußdiagramm 
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SCHRITT : Programm 


10 REM C1-H2Ü 
20 CLS 

30 PRINT"PROGRAMM ZUR GRAPHISCHEN DARSTELLUNG" 

40 PRINT" DES WASSERMÜLEKUELS H2-0" 

5pR^’gjNT: PRINT: PRINT TAB (10) "PRÜF. DR. W. VOSS , 1984" 

60 PRINT:PRINT:PRINT 

70 PEN 1: PRINT TAB (10) CHR$: (231) ; 

80 PRINT TAB(12)CHR:f (205) 

90 PEN 3: PRINT TAB (14 ) CHRJ: (231) 

100 PEN 1:PRINT TAB(10)CHRf(231); 

110 PRINT TAB (12) CHR^: (204) 

130 PRINT:PRINT TAB(10)"H2 -0" 

140 PRINT:PRINT:PRINT"ENDE":END 




SCHRITT 


Variablenliste 


In diesem Programm werden keine Variablen benutzt. Des¬ 
halb entfällt hier dieser Arbeitsschritt. 
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(^SCHRITT 

1 Programmbeschreibung 



: Überschrift 

; Umschalten auf Gelb und Ausgabe eines 
Kügelchens in Spalte 1?^; Unterdrückung 
des Zeilenvorschubs 

: Ausgabe eines Schrägstrichs in Spalte 12 

: Umschalten auf Rot und Ausgabe eines 
Kügelchens in Spalte 14 

: Umschalten auf Gelb und Ausgabe eines 
Kügelchens in Spalte 10; Unterdrückung 
des Zeilenvorschubs 

; Ausgabe eines Schrägstrichs in Spalte 12 


: Ausgabe von H2- 0 ab Spalte 10 nach 
zwei Leerzeilen 

: Ende des Programms 


Satz 10-60 
Satz 70 

Satz 80 
Satz 90 

Satz 100 

Satz 110 

Satz 130 

Satz 140 
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SCHRITT 


Ergebnisse 


Die Bildschirmausgabe dieses Programms entspricht dem 
Bild, das wir in Abschnitt 3.1 schon vorgestellt haben. 
Eine weitere Präsentation ist deshalb hier entbehrlich. 
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Reaktionsgleichung 



SCHRITT 


Vorstellung des 
Problems 


Auch chemische Reaktionen lassen sich anschau¬ 
lich graphisch darstellen, wie am Beispiel der für die 
Stahlerzeugung notwendigen Prozesse gezeigt werden kann. 

Die Stahlerzeugung in den industrialisierten Ländern 
beginnt damit, daß im Hochofen zunächst Roheisen pro¬ 
duziert wird. Diese Produktion geht in folgenden Schrit¬ 
ten vor sich : 


1. Schritt : Erhitzte Luft wird mit Koks zu Kohlen¬ 
monoxid verbrannt : 


2 C + - > 2 CO 

Koks Sauer- Kohlen¬ 
stoff monoxid 
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2. Schritt : Das heiße Kohlenmonoxid (CO) 

steigt im Hochofen auf und rea¬ 
giert dort mit Eisenoxid 


Fe^Ü^ + 3 CO -> 2 Fe + 3 CO 2 

Eisen- Kohlen- Eisen Kohlen¬ 
oxid monoxid dioxid 

Damit steht dann Roheisen für die weitere Verwendung 
zur Verfügung. 

Es soll nun ein BASIC-Programm vorgestellt werden, wel¬ 
ches diese chemischen Reaktionsbeziehungen veranschau¬ 
licht. 

Bei der Darstellung der Atome undder Moleküle bedienen 
wir uns der gleichen graphischen Möglichkeiten wie im 
Beispiel zuvor. 



SCHRITT 


Problemanalyse 


Mit der obigen Beschreibung und unter Rückgriff auf die 
Überlegungen im vorangegangenen Beispiel ist im Grunde 
die Problemanalyse schon geleistet, so daß weitere Aus¬ 
führungen an dieser Stelle entbehrlich sind. 
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SCHRITT 


Flußdiagramm 


Auch das Flußdiagramm ist hier nicht mehr erforderlich, 
wobei die gleichen Gründe maßgeblich sind wie im Schritt 
zuvor. 



Programm 


10 REM C2-CHEM.REAKTION 
20 CLB 

30 PRINT"PROGRAMM ZUR DARSTELLUNG EINER CHEMI-" 

40 PRINT TAB(13)"SCHEN REAKTION." 

NT : PR INT: PR I NT TAB ( 10) " PROF. DR. W. VOSS . 1984 " 

60 PRINT:PRINT:PRINT 

70 PEN 1:PRINT TAB(10)CHR^(231): 

75 PRINT TAB(25)CHRt(231) ; :PEN 2:PR INT CHRt (231) 

80 PR I NT: PR I NT T AB ( 12) " + : PEN 2: PR I NT CHR4 (231 ) 

;:PRINT CHR^(231); 

85 PRINT" 

36 PRINT 

90 PEN 1:PRINT TAB(10)CHRi(231); 

100 PRI NT TAB (25) CHRi' (231 ) ; : PEN 2: PR I NT CHRi (23 1 > 
110 PRINT:PRINT 

120 PEN 1: PRINT TAB(10)"2C 0 = 2C:0" 

130 PRINT TAB(16)"2" 

PR INT: PR INT: FORINT : PR INT‘'BITTE: CÜNT EINGEBEN" :S 
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150 CLS 

160 PEN 2:PRINT TAB(33)CHR^(231) 
^;5g^PEN 1:PRINT TAB < 18) CHR$: (231 > 

180 PEN 12 PRINT TAB(32)CHR:$(231) 


PEN 2: PR INT CHR:t 


TAB(10)CHR^(231) ; :PEN 2: PRINT TAB ( 

210 PRINT TAB(12)CHR^ (231) ; rPRINT TAB(15)"-^"? 

(^1?^*^^ TAB(18)CHR:^ (231) ; :PEN 2 2 PR INT TAB ( 

= TAB (29, PEN 

240 PEN 3: PR INT TAB (10) CHR:$: (231) ; 2 PEN 2 2 PR INT TAB ( 

33)CHRi:(55l) 

TAB<26,CHR 

?$?cRI^(^il?-'^^ TAB(18)CHR$ (231) ; :PEN 22 PRINT TAB ( 


270 PEN 12 PRINT TAB(32)CHR^(231) 

280 PEN 2: PRINT TAB (33) CHR:$: (231) 

290 PRINT 2 PRINT 

300 PEN 12PRINT TAB(8)'*FE 0 + 3C0 * 2FE + Cü" 

310 PRINT TAB(10)“2 3 2" 

320 PRINT:PRINT"ENDE DER AUSGABE":END 






Voß 

Kapitel 

3 

• Chemie 

Seite 

Schule 

Abschnitt 

3 

• Reaktionsgleichung 

113 



SCHRITT 


Variablenliste 


Es werden keine Variablen benutzt. 



SCHRITT 


Programmbeschreibung 


Satz 10- 60 
Satz 70 

Satz 75 

Satz 80 

Satz 85 

Satz 86 
Satz 90 


: Überschrift 

: Ausgabe eines gelben Kügelchens 
in Spalte 10 

: Ausgabe eines gelben Kügelchens 
in Spalte 25 und daneben eines 
blauen Kügelchens 

: Ausgabe eines +-Zeichens in Spalte 
12 und daneben zweier blauer Kügel¬ 
chen 

: Ausgabe eines =-Zeichens in der 
gleichen Zeile 

; Leerzeile 

: wie Satz 70 


Satz 100 
Satz 110-130 
Satz 140-150 


: wie Satz 75 

: Ausgabe der Reaktionsgleichung 
: Abwarten und Räumen des Bildschirms 
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Satz 16^2^-280 


: Ausgabe des graphischen Abbilds 
der zweiten Reaktionsgleichung 


Satz 290-310 


Satz 320 


: Ausgabe der jeweiligen Reaktions¬ 
gleichung 

: Ende des Programms 
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SCHRITT 


Ergebnisse 


Das vorgestellte Programm erzeugt nacheinander zwei gra¬ 
phische Bilder auf dem Bildschirm; das zweite Bild er¬ 
scheint, wenn der Programmbenutzer das Kommando CONT 
eingegeben hat. 

Es aürfte entbehrlich sein, diese beiden Bilder hier 
vorzustellen, insbesondere auch deshalb, weil hier 
keine farbliche Darstellung möglich ist. Sinnvoller 
ist es deshalb, dieses Programm direkt an einem Farb¬ 
fernseher zu erproben. 
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Stöchiometrisches Rechnen 



SCHRITT 


Vorstellung des 
Problems 


Beim stöchiometrischen Rechnen geht es darum, die Stoff¬ 
mengen zu quantifizieren, die bei chemischen Reaktionen 
umgesetzt werden. Es könnte damit also zum Beispiel die 
folgende Frage beantwortet werden : 

Wieviel Gramm Schwefel sind notwendig, um 100 Gramm 
Zink vollständig zu Zinksulfid umzusetzen ? (Schwefel 
= S; Zink = Zn; Zinksulfid = ZnS) 

Atomgewicht von Schwefel : 32.1 

Atomgewicht von Zink : 65.4 
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SCHRITT 


Problemanalyse 


Zur Lösung des gestellten Problems ist von der zustän¬ 
digen Reaktionsbeziehung auszu^ehen : 


Zn + S -> ZnS 


Wenn wir die sog. Molmassen des gesuchten und des gege¬ 
benen Stoffs aufeinander beziehen, erhalten wir : 

32.1 g Schwefel sind notwendig, um 65.4 g 
Zink umzusetzen (s.o.). 

Nun gilt offenbar : 

x/l950 = 32.1/65.4 


oder 


X = 3210/65.4 

Dabei ist x der gesuchte Wert. 
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SCHRITT 


Programm 


10 REM C3-CHEM.RECHNEN 
20 CLS 

30 PRINT"PROGRAMM ZUM STOECHIOMETRISCHEN RECHNEN" 
40 PRINTSPRINT 

pO^PRINT:PRINT:PRINT TAB(9)"PROF.DR.W.VOSS, 1984"; 

60 PRINT:PRINT:PRINT"BEIBPIEL ;"sPRINT:PRINT 
70 PRINT"ZINK. + SCHWEFEL = ZINKSULFID :" 

^rjjPRINTs PRINT" ZN + S = ZN S": PRINT: PR 

90 PRINT:PRINT"WIEVIEL GRAMM SCHWEFEL SIND NOTWEND 

100 PRINT"UM 100 G ZINK VOLLSTAENDIG ZU ZINKSUL-" 
110 PRINT"FID UMZUSETZEN ?":PRINT:PRINT 
120 INPUT "1. ELEMENT ; ";A^ 

130 INPUT "2. ELEMENT : "; B^^ 

140 PRINT:PRINT;PRINT 

VON Ai; SPRINT TAB(30)";";: 
l^r)u^’R^NT"ATOMGEWICHT VON "; Bi; s PRINT TAB(30)":";: 
170 X=B*100/A 

190 PRINTSPRINTSPRINT"ENDE DER BERECHNUNG":END 



SCHRITT 


Variablenliste 


A = Atomgewicht Stoff A 

A$ = Bezeichnung Stoff A 

B = Atomgewicht Stoff B 

B^ = Bezeichnung Stoff B 

X = Gesuchte Menge 
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SCHRITT 


ProgrammbeSchreibung 


Satz 10-110 : Überschrift und Beispielsangabe mit 

der in diesem Programm zu behandelnden 
Fragestellung 


Satz 120-130 


Eingabe der Namen der beiden Stoffe 


Satz 140 : 3 Leerzeilen 

Satz 150-160 : Ausgabe der Namen der Stoffe und An¬ 

forderung der Atomgewichte dieser 
Stoffe 


Satz 170 
Satz 180 


Satz 190 


: Berechnung der gesuchten Menge 

: Ausgabe des Ergebnisses (zuzüglich eini¬ 
ger Leerzeilen, auf die aber zukünftig 
nicht immer gesondert aufmerksam ge¬ 
macht werden soll) 

: Ende des Programms 
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SCHRITT 


Ergebnisse 


Nach den erläuternden Erklärungen fordert das Programm 
den Namen des ersten Elements an : 

Geben wir z.B. ein "Schwefel", so fordert das Programm 
den Namen des zweiten Elements, das in die Rechnung 
eingehen soll, an : 

Geben wir z.B. ein "Zink", so fordert das Programm die 
Atomgewichte für Schwefel und Zink an. 

Wenn wir daraufhin eingeben die Werte 32.1 und 65.4, 
dann liefert das Programm das folgende Ergebnis : 

BENOETIGTE MENGE VON ZINK : 

2<zJ3.738318 G 

ENDE DER BERECHNUNG 


Es versteht sich, daß bei anderen chemischen Prozessen 
(z.B. auch dann, wenn mehr als zwei Stoffe an den in 
Frage stehenden Reaktionen beteiligt sind), das obige 
Programm unter Umständen sehr grundlegend verändert 
werden muß. 

hier kam es nur darauf an, beispielhaft ein derarti¬ 
ges Programm einmal vorzustellen. 
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Das Periodensystem der Elemente 



SCHRITT 


Vorstellung des 
Problems 


Ein Rechner kann nicht nur dafür eingesetzt 
werden, Rechnungen durchzuführen, wie das zum Beispiel 
im vorangegangenen Abschnitt der Fall war, oder an¬ 
schauliche graphische Abbilder zu erzeugen (wie im Ab¬ 
schnitt davor), sondern er kann - gerade im schuli¬ 
schen Bereich - als "Auskunftei" benutzt werden. 

Am Beispiel des Periodensystems der Elemente kann ver¬ 
deutlicht werden, wie ein solches "Nachschlageprogramm", 
das gewissermaßen auch als Trainingsprogramm verstanden 
werden kann, aussehen könnte. 

Beispielsweise könnte der Rechenbenutzer daran inte¬ 
ressiert sein, nach Eingabe eines Elementnamens (z.B. 
Schwefel) vom Rechner wesentliche Informationen, über 
dieses chemische Element zu erfahren. 

Solche Informationen sind etwa : 
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1. Chemisches Zeichen, 

2. Ordungszahl im Periodensystem, 

3. Atomgewicht, 

4. Wichte, 

5. Schmelzpunkt, 

6. Siedepunkt, 

7. Gruppenzugehörigkeit (I-VIII,0), 

8. Nebengruppenzugehörigkeit (a,b) 

9. Elektronenschalen (K-Q) 



SCHRITT 


Problemanalyse 


Die Entwicklung eines entsprechenden Computerprogramms, 
aas die interessierenden Auskünfte bereitstellen kann, 
bereitet keine besonderen Schwierigkeiten. 

Uber DATA und READ können die Gesamtinformationen einge¬ 
geben werden. Der Benutzer gibt dann über INPUT an, 
über welches Element er Informationen wünscht und das 
Programm stellt dann den gesamten Datensatz für dieses 
Element zur Verfügung. 

Schließlich kann abgefragt werden, ob für ein weiteres 
chemisches Element diese Informationen gewünscht wer¬ 
den. 
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SCHRITT 


Programm 


10 REM C4-ELEMENTE 
20 CLS 

30 PRINT"PROGRAMM ZUR ANGABE WESENTLICHER EIGEN-" 
40 PRINT TAB(5)"SCHÄFTEN CHEMISCHER ELEMENTE." 
pglJiij^INT: PRINT: PRINT TAB (9) "PRÜF. DR. W. VOSS , 1984": 

60 N==52:REM ANZAHL DER AUFGENGMMENEN ELEMENTE 
70 DIM N4:(N,10) 

75 FÜR J=1 TO 7 
80 FOR 1=1 TO N 
85 READ N:t(I,J) 

90 NEXT I 
95 NEXT J 
100 FOR 1=1 TO N 

105 READ N^: (I ,8) ,N:f (I ,9) ,N:$ (I , 10) 

108 NEXT I 

110 PRINT: INPUT "WELCHES ELEMENT (NAME BITTE) "; B^^ 
120 FOR 1 = 1 TO N: IF B.t:=N^ (I , 1) THEN 160 
130 NEXT I 

;l,40 PRINT: PRINT "DIESES ELEMENT IST IM DATENBESTAND 


150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 

300 

310 


PRINT"NICHT VORHANDEN.":GOTO 290 
CLS 

PRINT N$(I, 1) ;-.PRINT TAB (23) N<^ (I , 2) 

PRINT:PRINT 

PRINT"ORDNUNGSZAHL : "; Nif (1,3) 

PRINT"GRUPPE : ";N^(I,8) 

PR INT "NEBENGRUPPE : ";N^:(I.9) 

PRINT"SCHALE : ";N$(I,10) 


PRINT:PR INT 
PRINT"ATOMGEWICHT 
PRINT"WICHTE 
PRINT 


;N:*:(I,4) 
;Ni: (I ,5) 


PRINT"SCHMEL Z PUNKT 
PRINT"SIEDEPUNKT 


;N:|:(I ,6) 
;N4:(I,7) 


PRINT:PRINT:INPUT"EIN ANDERES ELEMENT (J/N) 


IF A$="J" THEN CLS : GOTO 110 
PRINT:PRINT"ENDE IN 310":END 
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495 REM DATEN BEGRIFFE 

520 DATA KOHLENSTOFF,KUPFER,LITHIUM,MAGNESIUM,MANG 
AN,MOLYBDAEN,NATRIUM’ 

Bi I im, J IN, PLUTONI UM , QUE 

540 ^ DAT^^p^UERSTOFF,SCHWEFEL,SELEN,SILBER,SILIZIUM 

ii8s?8f MT lüS ^ 

570 DATA XENON,ZINK,ZINN 
595 REM DATEN ABKUERZUNGEN 

600 DATA AL,SB,AR,AS,BA.PB,B,BR,CL,CR,FE,F,AU,HE,I 

r,j,cd,k,ca;co;c,c::u,i!.i,i^g 

610 DATA MN,MO,NA,NE,NI,P,PT,PU,HG,RA,RN,0,S,SE,AG 

,si, n,sr,th;ti:u,0,h’ 

620 DATA BI,W,XE,ZN,SN 
640 REM DATEN ORDNUNGSZAHLEN 

?iT?9 

660 DATA 3,12.25,42,11,10,28,15,78,94,80,88,86,8,1 
6,34,47,14;7,56 ,,,,,,,,,,,, 

670 DATA 90,22,92,23,1,83,74,54,30,50 

695 REM DATEN ATOMGEWICHTE 

T8S, 9^:^2?§s?^ 6 ; §i: ^ 

!??§8?9 1 Iä^3<^24.32,54.94,95.95,22. 991,20. 1 a 

TA 242,200. 

,06,14.ÜOS 

m. ig:93f rstisEii; ??öf ? ■ 1 ’ 209, 

745 REM DATEN WICHTE 

750 DATA 2,7.6.67,.0018,5.72,3.5,11.34,1.73,3.14,1 
.537,7. 14,t.66, .(.)6l7 

g6g^D^Tg^ ^ , 22.42,4.942,8.64 , . 862,1.545 , 

r§9, ? 05 o 9 >?ä; 19: S ’ , 2 . 63 , 11 . 7 , 4 . 43 , 19,6 

790 DATA .0059,7.14,7.28 
795 REM DATEN SCHMELZPUNKTE 

80^)...JAIA ^ |5^^,^6.]j0^”^^0 , , 704,327,2400 , -7.3 , -100,1800 
^^54,114,321,64,851,1490,-,1083,180,650,1 

1 ?9, '^96S??4 14 1 ^52,44,1771 , - , -39,700 ,-71,-218.7, 
830 ^ DATA 1,1827,1727,1689,1726,-262,271,338 


7|g 245 ,61,226.05,222, 16,32.066,78.96,107 
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845 REM DATEN SIEDEPUNKT 

1 ?§5?2l§^T4ä38?öäe^ ’ ,1439,3185,-, 2360,13 

,-,357,1140 ,-61.9,-182. 

900 REM DATEN KLASSEN 

^5^JATA-yi,|^L^VI,B,M,VI,B,N,I,B,ü,IV,B,M,V,B,L,I 
960j^AgA^-,-,-,V,A,N,I,A,K,V,B,P,VI,A,P,0,A,0,II,B 


SCHRITT : Variablenliste 
A^ = Antwortstring (Ja/Nein) 

B$ = Speicherfeld zur Aufnahme des vom Benutzer ge¬ 

wünschten Elements 
I = LaufIndex 

j = LaufIndex 

N = Zahl der Elemente im Datenbestand 

= Dateielemente 




SCHRITT 


Programmbeschreibung 


Satz 10-50 : Überschrift 


Satz 55 : Angabe "Moment bitte", da das Einlesen 

des gesamten Datenbestandes einige Se¬ 
kunden dauert 


Satz 60 : Angabe der Elementanzahl (es sind in 

dieses Programm nicht alle chemischen 
Elemente aufgenommen, sondern nur 52 
Stück. Ggf. muß also ^atz 60 verändert 
weraen, falls die DATA-Statements ver¬ 
längert werden sollten) 
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Satz 7^ : Dimensionierung 

Satz 75-108 : Einlesen aller Informationen 

Satz 110 : Anforderung des Elements, über das In¬ 

formationen gewünscht werden 

Satz 120-130 : Aufsuchen des gewünschten Elements im 

Datenbestand. 

/ 

wird es gefunden, weiter bei 160; 
wird es hingegen nicht gefunden, weiter 
bei 140 

Satz 140-150 : Ist das gewünschte Element nicht im Da¬ 

tenbestand vorhanden, so erfolgt ein 
entsprechender Ausdruck; danach Sprung 
zum Satz 290 

Satz 160 : Löschen des Bildschirms 


Satz 170 


Ausgabe des Elementnamens und des chemi¬ 
schen Kürzels 


Satz 180 


Leerzeile 


Satz 190-280 : Ausgabe der übrigen Informationen für 

das gewünschte Element 

Satz 290-300 : Abfrage, ob eine weitere Auskunft gege¬ 

ben werden soll. 

wenn ja. Löschen des Bildschirms und 
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Sprung nach 110 



wenn nein, 

weiter bei 310 

Satz 310 

Beendigung des Programms 

Satz 495-960 

Datenbestand in DATA-Statements 


© 

SCHRITT : 

Ergebnisse 

Geben 

wir z.B. 

, als gewünschtes Element das Element 

Schwefel ein. 

so antwortet der Rechner : 

SCHWEFEL 


S 

ORDNUNGSZAHL 


: 16 

GRUPPE 


: VI 

NEBENGRUPPE 


: B 

SCHALE 


: M 

ATOMGEWICHT 


: 32.066 

WICHTE 


: 2.07 

SCHMELZPUNKT 


: 113 

SIEDEPUNKT 


; 444 

EIN ANDERES ELEMENT (J/N) 

? 
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Kapitel 4 : Physik 


Vorbemerkung 



Der Bereich der Schulphysik bietet ähnliche 
Problemstellungen, wie wir sie auch schon teilweise im 
Bereich der Mathematik vorgefunden haben (siehe Kapi¬ 
tel 2). Allerdings kommen hier nun häufig einige Beson¬ 
derheiten hinzu, die es nahelegen, wieder von den Gra¬ 
phikmöglichkeiten des Rechners Gebrauch zu machen. 

Deshalb soll - über das hinaus, was im vorangegange¬ 
nen Kapitel schon über die Methoden der Färb- und Gra¬ 
phikprogrammierung gesagt wurde - in diesem einleiten¬ 
den Abschnitt noch einmal auf die Graphik-BASIC-Anwei- 
sungen etwas näher eingegangen werden. 
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Graphik-Programmierung 


Verwendet man den SCHNEIDER CPC 464 zur 
Erstellung von Graphiken, so steht die sog. hochauf¬ 
lösende Graphik im Mittelpunkt des Interesses. 

Je nachdem, in welchem Bildschirmmodus der Rechner 
arbeitet, steht ein unterschiedlich hohes Auflö¬ 
sungsvermögen (und - wie schon erwähnt wurde - un¬ 
terschiedlich breite Farbpaletten) zur Verfügung. 

Mit dem folgenden Kommando wird der Bildschirmmodus 
festgelegt: 

Kommando 8: 


MODE Zahl 


An der Stelle "Zahl" kann dabei eine Null, Eins 
oder Zwei stehen. 

Diese Zahlenangaben haben die folgende Bedeutung: 
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MODE 

Zeichen 
pro Zeile 

0 

20 

1 

40 

2 

80 


Nach dem Einschalten befindet sich der Rechner per 
Voreinstellung im Modus 1, stellt also 40 Zeichen 
pro Bildschirmzeile zur Verfügung. 

Generell bietet er für die hochauflösende Graphik 
ein Auflösungsvermögen von 640 ^ 400 Punkten 
(640 Spalten und 400 Zeilen). 

Dieses Auflösungsvermögen macht es möglich, relativ 
feine Linienzüge auf dem Bildschirm zu erzeugen, wenn 
man die dafür notwendigen Anweisungen kennt. 

Die wichtigsten dieser Anweisungen sollen im folgen¬ 
den kurz besprochen werden und an einer Reihe ein¬ 
facher und überschaubarer Beispiele erprobt werden. 
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Wenn man hochauflösende Graphiken anfertigt, ist es 
sinnvoll, sich vorzustellen, daß auf dem Bildschirm 
sich nun ein (nicht sichtbarer) Graphik-Cursor bewegt, 
dessen Position angibt, an welcher Stelle gerade ge¬ 
zeichnet werden kann. 

Wir sagten schon, daß man sich im Graphikmodus den 
Bildschirm gemäß der folgenden Skizze aufgeteilt den¬ 
ken muß: 



0 A 


Besonders wichtig ist in diesem Zusammenhang, daß die 
Zeile ^ die unterste Zeile, die Spalte 0 die am wei¬ 
testen links befindliche Spalte des Bildschirms ist. 

Somit befindet sich der Koordinatenpunkt (0,0), also 
der Ursprung eines Achsenkreuzes, das man sich denken 
kann, links unten - so wie man es beispielsweise aus 
der Schulmathematik auch gewohnt ist. 
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Will man nun auf dem Bildschirm einen Punkt zeichnen, 
so dient dazu die folgende Anweisung: 


Statement 17: 


PLOT S,Z 


Dabei steht S für die Spalte (0-639) und Z für die 
Zeile (0-399), in die gezeichnet werden soll. 


Der Leser erprobe das folgende Programm: 


10 CLS 

20 PLOT 320,200 
30 END 


Das Ergebnis ist ein kleiner Punkt auf der Mitte des 
Bildschirms. 

Entsprechend einfach ist das Ziehen von geraden Li¬ 
nien mit dem folgenden Statement: 

Statement 18: 

DRAW S,Z 
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BASIC-Programme 


So zieht beispielsweise das Statement 
DRAW 100,100 

einen geraden Strich von der jeweiligen Position 
des Graphik-Cursors ausgehend bis zum Koordinaten¬ 
punkt (100,100). 

Wenn der Graphik-Cursor durch ein vorhergehendes 
PLOT- oder DRAW-Statement nicht bewegt wurde, wird 
dieser Strich von (0,0) nach (100,100) gezogen, also 
von links unten ca. 10 cm schräg aufwärts. 

Nehmen wir an, wir wollen in die Mitte des Bild¬ 
schirms einen senkrechten Strich ziehen. 

Dazu benötigen wir das folgende Programm: 


10 

CLS 


20 

PLOT 

320,0 

30 

DRAW 

320,399 

40 

END 
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Entsprechend sieht ein Programm für einen waagrech¬ 
ten Strich in der Mitte des Bildschirms folgender¬ 
maßen aus: 


10 CLS 

20 PLOT 0,200 
30 DRAW 639,200 
40 END 


Entsprechend einfach ist es, beispielsweise ein Ach¬ 
senkreuz zu zeichnen, wie das folgende Programm illu¬ 
striert: 


10 

20 

CLS' 

PLOT 

0, 

30 

DRAW 

40 <3,0 

40 

PLOT 

0,0 

50 

DRAW 

0,250 

60 

END 
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Sehr leicht ist es bei diesem Rechner - im Gegen¬ 
satz zu vielen anderen - in eine graphische Dar¬ 
stellung Texte einzufügen. 

Natürlich können auch Graphiken unter Benutzung spe¬ 
zieller Sonderzeichen erzeugt werden, die der ASCII- 
Code für den SCHNEIDER CRC 464 bereitstellt. 

Sie finden sich im Bereich der Codeziffern 123 bis 255 
und können aufgerufen werden durch die Anweisung 

PRINT CHR$ (Zahl) 

für Zahl = 123 bis 255 

Der Leser erprobe das folgende Programm, welches alle 
Sonderzeichen auf dem Bildschirm ausgibt. Es bleibt 
allerdings nach je 15 Zeichen stehen, damit der Benutzer 
sich diese Symbole in Ruhe anschauen kann und muß dann 
durch Eintippen des Kommandos 

CONT 


wieder in Gang gesetzt werden. 


10 

CLS 


20 

PRINT" 

NR. SYMBOL":PRINT 

30 

PRINT 


40 

FÜR 1 = 

123 TO 255 

50 

PRINT 

I; " " ; CHRi: (I) 

60 

IF 1/1 

5=INT(I/15) THEN STOP 

70 

NEXT I 


80 

END 
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Allerdings kann auch mit den Sonderzeichen "gezeich¬ 
net" werden, die über die CHR^-Funktion bereitge¬ 
stellt werden können. 

Beispielsweise finden wir unter der Codezahl 124 
einen senkrechten Strich von ca. 5 mm Länge. 

Wenn wir nun programmieren: 


10 

CLS 


20 

PRINT: 

:PRINT:PRINT 

30 

FÜR I- 

= 1 TO 10 

40 

PRINT 

TAB (10) CHRT- (124) 

50 

MEXl ] 

l 

60 

END 



so erhalten wir einen über 10 Zeilen reichenden 
senkrechten Strich in Spalte 10 des Bildschirms, 
wobei dieser sich dabei wieder im Normalgraphikmo¬ 
dus befindet, also 40 Spalten zu je 25 Zeilen auf¬ 
weist. 

Entsprechend kann auch mit allen anderen Symbolen 
unter Benutzung der Funktion CHR3 umgegangen werden. 
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Mit diesen Symbolen kann auch gezeichnet werden, 
wobei aber im Modus 1 auf dem Bildschirm nur 40 
Spalten und 25 Zeilen zur Verfügung stehen. 


Es handelt sich also nicht um eine hochauflösende 
Graphik, wie das folgende Beispiel zeigt: 


10 CLS 

20 PRINT:PRINT:PRINT:PRINT 
30 FÜR 1=1 TO 10 
40 PRINT CHR^:(143) 

50 NEXT I 
60 FOR 1=1 TO 20 
70 PRINT CHR^:(143); 

80 NEXT I 

90 PRINT:PRINT:PRI NT"ENDE":END 


Dieses Programm erzeugt schematisch das folgende 
Bild: 


1 


Vi 
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Natürlich kann man bei derartigen Graphiken die 
Farbe wechseln. 

Wenn wir z.B. in das obige Programm die Sätze 

15 PEN 2 

und 

85 PEN 1 

einfügen, dann wird das dicke Achsenkreuz in himmel¬ 
blau und der Schlußausdruck "ENDE" wieder in gelb 
ausgegeben. 

Bei der Durchsicht des vorangegangenen Programms wird 
der Leser bemerkt haben, daß die Verschiebung des Bal¬ 
kenkreuzes nach unten dadurch erreicht wurde, daß das 
Programm mit einer Reihe von PRINT-Statements einge¬ 
leitet wurde, um Leerzeilen zu erzeugen. 

Derartige Verschiebungen bzw. Plazierungen an beliebi¬ 
ger Stelle des Bildschirms können einfacher mit dem 
folgenden Statement erreicht werden: 


Statement 19: 


nn LOCATE S,Z 
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Dieses Statement rückt den Cursor an die Bildschirm¬ 
stelle, die durch Spalte S (1-40) und Zeile Z 
(1-25) gekennzeichnet wird. 

Wollen wir beispielsweise das Wort "AHA" in die Mitte 
des Bildschirms schreiben, so gelingt dies mit fol¬ 
gendem Programm: 


10 CLS 

20 LOCATE 19,12 
30 PRINT"AHA" 

40 END 


Mit diesem LOCATE-Statement ist man nun auch in der 
Lage, in sehr einfacher Weise Graphiken mit Texten 
zu mischen, was bei anderen Rechnern - zumindest bei 
der hochauflösenden Graphik - häufig mit großen Pro¬ 
blemen verbunden ist. 

Beispielsweise will man die Achsen eines Koordinaten¬ 
systems mit den Bezeichnungen "EINKOMMEN" (waagrechte 
Achse) und "ANZAHL" (senkrechte Achse) beschriften. 
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Dies leistet das folgende Programm: 


10 CLSd 

20 LÜCATE 1,10 
30 PR INT"ANZAHL" 

40 LOCATE 25,22 
50 PRINT"EINKOmEN" 
60 PLOT 50,50 
70 DRAW 350,50 
80 PLOT 50,50 
90 DRAW 50,220 
100 END 


Es leuchtet ein, daß nach diesem Muster auch entspre¬ 
chend andere Aufgaben gelöst werden können. 

Nach diesen ausführlichen generellen Anmerkungen zur 
Graphikprogrammierung werden wir uns nun wieder kon¬ 
kreten Problemstellungen zu. 
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Die Federwaage 



SCHRITT 


Vorstellung des 
Problems 


Wenn man Werkstücke unterschiedlicher Gewichte 
an eine Federwaage hängt, so wird diese unterschiedlich 
weit ausgedehnt, d.h. sie reagiert in unterschiedlicher 
Weise auf die verschiedenen Gewichtskräfte. 

Es gilt dabei ein Proportionalitätsgesetz, das besagt, 
daß z.B. bei Verdopplung der Gewichtskraft auch die er¬ 
zielte Verlängerung der Federwaage sich verdoppelt. 

Es gibt also eine sog. Federkonstante, nämlich den Quo¬ 
tienten aus Gewichtskraft F und Federverlängerung s, 
d.h. es gilt : 


D = F/s = konstant 


Wenn beispielsweise D = 20 ist, heißt dies, daß eine 
Gewichtskraft von 100 (cN) zu einer Federverlängerung 
von 5 cm, eine Gewichtskraft von 200 (cN) zu einer Fe¬ 
derverlängerung von 10 cm führt etc. 
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SCHRITT 


Problemanalyse 


Der oben geschilderte Zusammenhang läßt sich (z.B. für 
D = 20) folgendermaßen graphisch darstellen : 


Kraft 



Das hier zu entwickelnde BASIC-Programm soll für alter¬ 
native Werte der Federkonstanten D das entsprechende 
graphische Bild auf dem Bildschirm ausgeben, so daß 
also die folgenden Programmteile erforderlich werden : 

- Erzeugung eines Achsenkreuzes, 

- Eingabe eines alternativen D-Wertes, 

“ Ausgabe der Konstanzlinie (siehe obige Abbildung), 

- Beantwortung der Frage nach der Ausdehnung der 
Federwaage bei Eingabe einer beliebigen Gewichts¬ 
kraft. 
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SCHRITT 


Flußdiagramm 
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SCHRITT 


Programm 


10 REM PI-FEDERWAAGE 
20 CLS 

30 PRINT"PROGRAMM ZUR GRAPHISCHEN VERANSCHAULI-" 
40 PRINT TAB(3)"CHUNG DES FEDERWAAGEN-GESETZES." 

INT:PRINT:PRINT TAB(9)"PRÜF.DR.W.VOSS, 1984"; 


55 PRINT:PRINT:PRINT:PRINT 

60 INPUT "WERT DER FEDERKONSTANTEN D : ";D 
70 CLS:REM ACHSENKREUZ 
75 LOCATE 3,3:PRINT"KRAFT" 

77 LOCATE 20,3;PRINT" D = ";D 
80 PLOT 50,50;DRAW 380,50 
90 PLOT 50,50:DRAW 50,350 
100 LOCATE 25,22;PRINT"CM" 

110 PLOT 50,50 
120 B=D/10 
125 A=380 
130 E=50-+-B*350 

140 IF E>399 THEN A=400-(350*<E-399)/(E-49)):E=399 
150 DRAW A,E 

263 FÜR 1= 1 TO 9999;NEXT I 
265 CLS 

270 INPUT"KRAFT F ; ";F 

280 FW=F/D 


290 PRINT;PR INT:PRINT"FEDERKONSTANTE 
300 PRINT:PRI NT:PRINT"FEDERWEG 
l5}0,.Pg.|NT:PRINT;PRINT: INPUT "NOCH EINE 

320 IF A^:="J" THEN 265 

330 PR INT-.PRINT; INPUT "ANDERE GRAPHIK 

340 IF A:f="J" THEN CLS; GOTO 60 

350 PRINT;PRINT:PRINT"ENDE";END 


: "; D 

; " ; FW 

RECHNUNG (J/ 


(J/N) ";A^ 
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SCHRITT 


ProgrammbeSchreibung 


Satz 10- 55 
Satz 60 
Satz 70-100 


Satz 110-150 


Überschrift 

Eingabe der Federkonstanten D 

Zeichnen des Achsenkreuzes 
Ursprung; 50,50 

waagrechte Achse: 50,50 bis 380,50 
senkrechte Achse; 50,50 bis 50,350 

Angabe der Achsenbezeichnungen (Satz 
75 und Satz 100) und Angabe der Funk¬ 
tionsbezeichnung (Satz 77) 

Zeichnen der Konstanzlinie von 
50,50 bis A,E 

Dabei müssen der ursprüngliche Wert 
für A(A=380; Satz 125) und der Wert 
für E verändert werden, falls E größer 
als 399 wird, gemäß folgender Skizze 


Satz 263-265 

Satz 270 
Satz 280 


; Warteschleife und Löschen des Bild¬ 
schirms 

; Anforderung einer Kraft F 
; Berechnung des Federweges 
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Satz 29^-300 : Ausgabe der Ergebnisse 

Satz 31^ : Abfrage, ob noch eine Rechnung; 

wenn ja, zurück nach 265 
wenn nein, weiter bei 33^ 

Satz 33^ : Abfrage, ob eine andere Graphik 

wenn ja, zurück nach Satz 60 nach Lö¬ 
schen des Bildschirms 

wenn nein, weiter bei Satz 350 


Satz 350 


: Ende des Programms 



SCHRITT 


Ergebnisse 


Nach der Eingabe der Inputinformation erzeugt das Pro¬ 
gramm eine Graphik, wie sie schematisch auf einer der 
vorangegangenen Seiten schon vorgestellt wurde. 

Nach einer Pause fordert dann das Programm eine Kraft 
F an und berechnet den dazugehörigen Federweg. Ein Re¬ 
chenbeispiel dazu dürfte sich an dieser Stelle erübri¬ 
gen (vergl. dazu 1. Schritt, wo sich ein entsprechend- 
des Beispiel ja findet). 
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Der Satz des Archimedes 



SCHRITT 


Vorstellung des 
Problems 


Der Satz des Archimedes lautet : 

Der Auftrieb, den ein in eine Flüssigkeit getauchter 
Körper erfährt, ist gleich dem Gewicht der verdräng¬ 
ten Flüssigkeit. 

Dieser Satz beschreibt die bekannte Erfahrung, daß es 
zunehmender Kraft bedarf, um zum Beispiel einen leeren 
Eimer mit dem Boden nach unten unter Wasser zu drücken. 

Ein immer tiefer in eine Flüssigkeit eintauchender Kör¬ 
per erfährt einen zunehmenden scheinbaren Gewichtsver¬ 
lust, der durch den wachsenden Auftrieb vorgetäuscht 
wird. 

Es soll nun ein Prograimn vorgestellt werden, welches 
auf der Grunalage üieser Beziehungen für einen unbe¬ 
kannten Körper, der in eine bekannte Flüssigkeit ein¬ 
getaucht wird (z.B. in Wasser), Volumen und Wichte 
(spezifisches Gewicht) bestimmt, nachdem sein Gewicht 
an der Luft bekannt ist. 
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SCHRITT 


Problemanalyse 


Wie bei jeder konkreten Problemstellung, ist auch hier 
nach dem folgenden bewährten Muster zu verfahren : 


E 

= Eingabe 

V 

= Verarbeitung 

A 

= Ausgabe 


Das heißt, wir überlegen zunächst, welche Eingabeinfor- 
mationen der Rechner benötigt, wenn er das oben formu¬ 
lierte Problem lösen soll. Er benötigt folgendes : 

e 1. Gewicht des unbekannten Körpers in der 
Luft; 

e 2. Scheinbares Gewicht des Körpers in der 
Flüssigkeit, in die er eingetaucht wird; 

E3. Wichte der Flüssigkeit, die zur Überprü¬ 
fung verwendet wird. 

Wenn diese Informationen vorliegen, dann kann im Ver¬ 
arbeitungsschritt bestimmt werden : 

VI. Auftrieb und Gewicht der verdrängten 
Flüssigkeitsmenge; 

V2. Volumen dieser Flüssigkeitsmenge; 

V3. Volumen des verdrängenden, zu prüfen¬ 
den Körpers; 

V4. Wichte des zu prüfenden, eingetauchten 
Körpers. 
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Als Ausgabe sind schließlich die in den letzten Punk¬ 
ten V3 und V4 erzielten Ergebnisse vorzusehen. 



SCHRITT 


Flußdiagramm 
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SCHKITT 


Programm 


10 REM P2-ARCHIMEDES 
20 CLS 

30 PRINT"PROGRAMM ZUR VERWENDUNG DES SATZES" 

40 PRINT TAB(12)"DES ARCHIMEDES.":PRINT:PRINT 
50 PRINT TAB(9)"PROF.DR.W.VOSS, 1984":PRINT 
5^qPRINT:PRINT"MIT DEM SATZ DES ARCHIMEDES KOENNEN 

56 PRINT"LUMEN UND WICHTE EINES UNBEKANNTEN" 

57 PRINT"KOERPERS BESTIMMT WERDEN.":PRINT:PRINT 
70 PRINT"EINZUGEBEN SIND DIE FOLGENDEN INFORMA-" 

80 PRINT"TIONEN :":PRINT 

^0 PRINT TAB(5)"- GEWICHT DES KOERPERS AN DER LUFT 
100 PRINT TAB(5)" (GL)" 

^^gp|g^WT:PRINT TAB(5)"- SCHEINBARES GEWICHT DES K 

120 PRINT TAB(5)" IN DER FLUESSIGKEIT (GS)" 
^gp^fi*RINT;PRINT TAB (5)"- WICHTE DER FLUESSIGKEIT 

140 PRINT:PRINT:INPUT "GL = " ; GL 

150 PRINT: INPUT "GS = "; GS 

160 PRINT: INPUT "WF = ";WF 

170 GV=GL-GS 

175 VV=GV/WF 

180 VK=VV 

190 WK=GL/VK 

200 CLS 

210 PRINT"ZU PRUEFENDER KOERPER : ":PRINT 
220 PRINT:PRINT" VOLUMEN : ";VK 

230 PRINT:PRINT" WICHTE : ": WK 

240 PRINT:PRINT;PRINT:INPUT "NOCHMAL (J/N) ";A^ 

250 IF A^="J" THEN CLS;GOTO 70 

260 PRINT:PRINT"ENDE DER BERECHNUNGEN";END 
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SCHRITT 


Variablenliste 


= Stringvariable für die Antworten Ja/Nein 
GL = Gewicht des Körpers an der Luft 

GS = Scheinbares Gewicht des Körpers in der Flüssig¬ 
keit 

GV = Scheinbarer Gewichtsverlust 
VK = Volumen des Körpers 

VV = Volumen der verdrängten Flüssigkeit 

WF = Wichte der Flüssigkeit 
WK = Wichte des Körpers 



SCHRITT 


Programmbeschreibung 


Satz 10-130 


; Überschrift und erläuternde Informa¬ 
tionen 


Satz 140-160 
Satz 170-190 
Satz 200-230 


Anforderung der Input-Informationen 
Verarbeitungsschritte (Berechnungen) 
Ausgabe der Ergebnisse 


Satz 240-260 : Abfrage, ob weitere Berechnung (zurück 

nach 70) , bzw. Beendigung des Programms 
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SCHRITT 


Ergebnisse 


Geben wir zum Beispiel die folgenden Input-Informatio- 
nen : 

E1: Gewicht des Körpers = 70 g; 

E2: Scheinbares Gewicht des Körpers in der Prüfflüs- 
sigkeit (zu messen mit einer Federwaage) = 40 g; 
E3: Wichte der Prüfflüssigkeit = 1 (Wasser ), 

dann erzeugt das Programm die folgenden Ergebnisse ; 

ZU PRUEFENDER KOERPER : 

VOLUMEN = 30 


WICHTE 


2.3333333 


NOCHMAL (J/N) ? 
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Pendelbewegung 



SCHRITT 


Vorstellung des 
Problems 


Die Pendelbewegung ist ein wichtiger physika¬ 
lischer Grundtatbestand, der in der Lehre vom Schall 
(Akustik), in der Lehre vom Licht (Optik) und in der 
Elektrizitätslehre eine wichtige Rolle spielt. 


Pendelbewegungen folgen einer 
Sinusschwingung, wie es die 
nebenstehende Skizze zeigt. 

-Es soll nun ein Programm vor¬ 
gestellt werden, welches für 
alternative Amplituden (A) und 
für alternative Periodenlängen 
(P), die ihrerseits die sog. 
Frequenz (F) einer Schwingung 
ausmachen, eine solche Sinus¬ 
schwingung graphisch veran¬ 
schaulicht . 
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SCHRITT 


Problemanalyse 


Für das geplante Programm müssen wir als Input-Infor¬ 
mationen die Amplitude der Schwingung und ihre Perio¬ 
denlänge vorgeben. 

üas Programm kann dann veranlassen, daß - wie in obi¬ 
ger Skizze - die Sinusschwingung von oben nach unten 
über den Bildschirm "läuft" (was zu einem einfacheren 
Programm führt, als wenn diese Schwingung horizontal 
ausgegeben werden sollte). 

Wesentlicher Inhalt des Programms muß es dabei sein, 
Amplitude und Periodenlänge so zu normieren, daß der 
Bildschirm zur Darstellung der Schwingung optisch gut 
ausgenutzt wird. 

Dies kann erreicht werden, indem wir die Mittellinie 
der Schwingung in die Spalte 2<i> legen und die Amplitu¬ 
de, also den größtmöglichen Ausschlag z.B. auf den Ma¬ 
ximalwert 19 ausrichten. 

Wir wählen hier also - wie aus der gerade genann¬ 
ten Bildschirmaufteilung hervorgeht - nicht die 
hochauflösende Graphik (dazu siehe Kap. 9), son¬ 
dern stellen die Schwingung in der sog. Blockgra¬ 
phik (Normalgraphik) unter Nutzung eines geeigne¬ 
ten ASCII-Codezeichens dar. 
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SCHRITT 


Flußdiagramm 
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SCHRITT : Programm 

10 REM P3~PENDEL 
20 CLS 

30 PRINT"PROGRAMM ZUR SIMULATION EINER PENDEL-" 

40 PRINT TAB<14)"BEWEGUNG.PRINT:PRINT 

50 PRINT:PR INT TAB(9)"PRÜF.DR.W.VOSS, 1984":PRINT 

5:?„PRINT: PRINT" ZUM UNTERBRECHEN ESC-TASTE DRUECKEN 

gg_fi-RINT: PRINT" ZUM ENDGUELTIGEN ANHALTEN ZWEIMAL E 

56 PRINT TAB(10)"TASTE DRUECKEN '" 

60 INPUT "AMPLITUDE DER SCHWINGUNG : ";A 

70 PRINT:INPUT"PERIODENLAENGE : ";P 

75 IF A>19 THEN A=19 
80 CLS 
90 1 = 1 

100 J=(2*(22/7)/P)*I 
110 Y=SIN(J) 

120 S=20+Y*A 
130 FOR K=1 TO S 
140 PRINT CHR4^(231); 

150 NEXT K 
160 PRINT 

170 I = H-1:G0T0 100 

SCHRITT : Variablenliste 


A = Amplitude aer Schwingung 

I = Laufindex 

J = Transformierte Größe : J = (2*pi/p)*I 

(J dient der Normierung der Periodenlänge) 

K = Laufinaex, der aie Länge der pro Bildschirmzeile 
auszugebenden Punktstäbe mit Hilfe der Größe S 
bestimmt 

P = Periodenlänge der Schwingung 

S = Bildschirmspeicherstelle, an der die jeweilige 

Bildschirmzeile endet 
Y = SIN(J) 
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SCHRITT 

; Programmbeschreibung 



: Überschrift und Erläuterungen 

: Anforderung der Input-Informationen 

: Beschränkung der Schwingungsamplitude 
auf den Maximalwert 19 

; Löschen des Bildschirms 

: Beginn Ausdruckschleife (I = Zeilen¬ 
zählindex) 

: Normierung von I nach Maßgabe der Perio¬ 
denlänge P zur Hilfsgröße J 

: Bestimmung aes dazugehörigen Sinuswerts 

; Bestimmung der Bildschirmzeilen-Position 
des jeweiligen Sinuswertes unter Berück¬ 
sichtigung der Tatsache, daß der Null¬ 
wert in der Spalte liegen soll 

Satz 130-150 : Schleife zum Auffüllen der Zeile bis zum 
jeweiligen Sinuswert mit "Kügelchen" 

Satz 160-170 : Erzwingen eines Zeilenvorschubs und Aus¬ 
gabe der nächsten Zeile durch Rücksprung 
zu Satz 100 nach Erhöhung von I um 1 


Satz 10-55 
Satz 60-70 

Satz 75 

Satz 80 
Satz 90 

Satz 100 

Satz 110 
Satz 120 
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SCHRITT 


Ergebnisse 


Die durch dieses Programm erzeugten Ergebnisse ent¬ 
sprechen der Skizze, die im ersten Arbeitsschritt vor¬ 
gestellt wurde, mit dem Unterschied, daß die Bereiche 
zwischen dem linken Bildschirmrand und der Sinuslinie 
mit gelben "Kügelchen" gefüllt werden. 

Der Leser kann sich leicht selbst ausdenken, wie das 
Programm verändert werden müßte, wenn man dieses "Auf¬ 
füllen" unterdrücken wollte, also nur diejenigen Po¬ 
sitionen z.B, durch "Kügelchen" optisch markiert, die 
tatsächlich auf der Sinuslinie liegen. 

Das hier vorgestellte Programm ist ein Endlosprogramm, 
das nur durch Betätigung der |ESC 1 -Taste abge¬ 
brochen werden kann. Auch dies ist aber leicht abän- 
aerbar. 
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Optische Abbildung 



SCHRITT 


Vorstellung des 
Problems 


Mit einer konvexen Linse kann 
folgende Abbildung schematisch zeigt - 
beliebigen Gegenstandes erzeugt werden 


- so wie es die 
das Abbila eines 



Nach diesem Modell funktioniert der Photoapparat^aber 
auch z.B. das menschliche Auge. 

Es soll nun ein Programm vorgestellt werden, welches 
bei vorgegebener Größe des Gegenstandes, Entfernung des 
Gegenstandes und Brennweite der konvexen Linse die Bild¬ 
größe bzw. den Abbildungsmaßstab bestimmt. 
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SCHRITT 


Problemanalyse 


Das zu erstellende Programm benötigt an Inputinforma¬ 
tionen ; 


1. Gegenstandsgröße, 

2. Gegenstandsentfernung, 

3. Brennweite der Linse. 

Zur Lösung des Problems benötigen wir die sog. Linsen¬ 
gleichung : 


1/f = l./g + 1/b 

wobei : f = Brennweite 

g = Gegenstandsweite 
b = Bildweite 

Löst man diese Beziehung nach b auf, so erhält man ; 

^ = 1/f-1/g 

Weiterhin gilt, daß der Abbildungsmaßstab A sich ergibt 
zu ; 


A = B/G = b/g 

Wenn nun beispielsweise der abzubildende Gegenstand 
die Größe G = 2^ cm hat, so ist mit Hilfe der obigen 
Beziehungen auch die Bildgröße bestimmbar, nämlich : 

B = (b*G)/g , weil B/G = b/g 
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SCHRITT 


Flußdiagramm 
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SCHRITT 


Programm 


10 

20 

30 

40 

50 

60 

70 


REM P4~LINSE 
CLS 

PR INT''PROGRAMM ZUR BERECHNUNG VON BILDWEITE," 
PRINT"BILDGROESSE UND ABBILDUNGSMASSTAB BEI" 
PRINT TAB(9)"EINER KONVEXEN LINSE.PRINT 
PRINT:PRINT TAB(9)"PROF.DR.W.VOSS, 1984":PRINT 


PR 


MT|PRINT"EINZUGEBEN SIND DIE FOLGENDEN DATEN 


80 PRINT TAB(5)"~ GEGENSTANDSGROESSE : " 
90 PRINT TAB(5)"- GEGENSTANDSWEITE : " 
100 PRINT TAB(5)"- BRENNWEITE : 

110 CLS 

120 BW=1/(l/F-l/GW) 

130 A=BW/GW 
140 B==(G*BW)/GW 

145 BW=INT(BW*1OQ+O.5)/100:A=INT(A*100+0 
INT(B*100+0.S)/1OO 


INPUT G 
INPUT GW 
:INPUT F 


)/100:B= 


150 PRINT"AUSGANGSDATEN : ":PRINT 

160 PRINT TAB(5)"BRENNWEITE : ";F 

170 PRINT:PRINT TAB(5)"GEGENSTANDSGROESSE : ";G 


180 PRINT:PRINT TAB(5)"GEGENSTANDSWEITE : " ; GW 

190 PRINT:PRINT:PRINT"ERGEBNISSE : ":PRINT 

200 PRINT:PRINT TAB(5)"ABBILDUNGSMASSTAB : ";A 

210 PRINT:PRINT TAB(5)"BILDGROESSE : ":B 

220 PRINT:PRINT TAB(5)"BILDWEITE : " ; BW 


g30„Pg|NT:PRINT:PRINT:INPUT"NOCH EINE RECHNUNG (J/ 

240 IF A:^="J" THEN CLS: GOTO 70 

250 PRINT:PRINT"ENDE DER BERECHNUNGEN":END 


SCHRITT : Variablenliste 

A = Abbildungsmaßstab 

A^ = Stringvariable (Ja/Nein) 

B = Bildgröße 
BW = Bildweite 
F = Brennweite 
G = Gegenstandsgröße 
GW = Gegenstandsweite 
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SCHRITT 

j Programmbeschreibung 



Satz 10-70 

Satz 80-100 

Satz 110-140 
Satz 145 

Satz 150-220 


; Überschrift und Erläuterungen 

: Anforderung der Inputinformationen 

: Löschen des Bildschirms und Berechnungen 
: Runden auf 2 Dezimalstellen 

: Ausgabe der Ergebnisse 


Satz 230-240 : Abfrage, ob weitere Berechnung ge¬ 

wünscht (dann zurück nach Satz 70 
nach Löschen des Bildschirms) 


Satz 250 


: Beendigung des Programms 



SCHRITT 


Ergebnisse 


Geben wir z.B. ein : G = 20 cm, GW = 300 cm, F = 15 cm, 
so erhalten wir : 


BRENNWEITE 

: 15 

GEGENSTANDSGROESSE 

: 20 

GEGENSTANDSWEITE 

: 300 

ERGEBNISSE ; 


ABBILDUNGSMASSTAB 

: .05 

BILDGROESSE 

: 1 .05 

BILDWEITE 

: 15.79 


NOCH EINE RECHNUNG (J/N) 
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Kräfteparalle¬ 

logramm 



SCHRITT 


Vorstellung des 
Problems 


Wenn zwei Kräfte an einem gemeinsamen Punkt 
ansetzen, so ergibt sich eine gemeinsame resultieren¬ 
de Kraft als Diagonale des sog. Kräfteparallelogramms, 
wie die folgenae Skizze verdeutlicht: 



Im folgenden Programm soll für die beliebige Kon¬ 
stellation von je zwei Kräften das Kräfteparallelo¬ 
gramm graphisch ausgegeben und die resultierende 
Kraft F3 berechnet werden. 
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SCHRITT 


Problemanalyse 


Der Ansatzpunkt der beiden Kräfte soll in die Mitte des 
Bildschirms gelegt werden (320,200). 

Einzugeben sind die Kräfte Fl und F2, die zunächst so 
umzurechnen sind, daß Fl + F2 nicht größer als 320 
wird, damit auch bei ungünstigster Konstellation der 
Platz aes Bildschirms ausreicht. 

Einzugeben sind weiterhin die Winkel W1 und W2, in de¬ 
nen die Kräfte Fl und F2 am ^Ansatzpunkt angreifen. 

Mit Hilfe des Satzes des Pythagoras und der Benutzung 
der Winkelbeziehungen im rechtwinkligen Dreieck können 
dann Spalten und Zeilen von A und B und daraus dann 
auch die Koordinaten von C berechnet werden (siehe Skiz¬ 
ze) . 

Ist die Lage von C bekannt, kann wiederum aus Fl und 
F2 die interessierende Kraft F3 berechnet werden 



Flußdiagramm 


Auf ein Flußdiagramm kann hier verzichtet werden. 
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SCHRITT 


Programm 


10 REM P5-PARALLEL0GRAMM 
20 CLS 

30 PRINT"PROGRAMM ZUR VERANSCHAULICHUNG DES SOG," 
40 PRINT" KRAEFTE-PARALLELOGRAMMS BEI ZWEI AN-" 

50 PRINT TAB(9)"GREIFENDEN KRAEFTEN.PRINT:PRINT 
I NT: PR I NT: PR I NT TAB < 9) " PROF. DR. W. VOSS, 1984 " 

70 SU=320:ZU=200 
80 PRINT:PRINT:PRINT:PRINT 
90 INPUT "ERSTE KRAFT 


100 INPUT "ANSATZWINKEL 
105 PRINT:PRINT 
110 INPUT "ZWEITE KRAFT 
120 INPUT "ANSATZWINKEL 
130 
135 
140 
150 
160 
165 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
275 
280 
290 
300 
310 
320 
330 
340 


Fl 

: 

: ";F1 

Fl 

(0-360) 

: ";W1 

F2 

F2 

(0-360) 

: " ;F2 

: " ; W2 


W1=W1*((22/7)/180):W2=W2*((22/7)/180) 

H=F1:G=F2 

F1=(F1/(F1+F2))*300:F2=(F2/(H+F2))*300 
Z1=F1*SIN(W1)+200 
S1=((Z1-200)/TAN(W1))+320 
CLS 

PLOT 320,200 

DRAW S1,Z1 

Z2=F2*SIN(W2)+200 

S2=((Z2-200)/TAN(W2))+320 

PLOT 320,200 

DRAW S2,Z2 

S3=S2+(Sl-SU) 

Z3=Z2+(Zl-ZU) 

PLOT SU,ZU 
DRAW S3,Z3 

F3=SaR((Z 3-Z U)+ (S3-SU)) 

F3=F3*(G+H)/300 

LOCATE 5,16 

PRINT"KRAFT 1 = ";H 

PRINT TAB(5)"KRAFT 2 = ";G 

PRINT:PRINT"RESULTIERENDE KRAFT = ";F3 

PRINT:PRINT:PRINT: INPUT "NOCHMAL (J/N) " : A:$ 

IF A^="J" THEN CLS: GOTO 90 

PRINT:PRINT:PRINT"ENDE":END 
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A3 

Fl 

F2 

F3 

G 

H 

SU 

51 

52 

53 
W1 
W2 
ZU 
ZI 
Z2 
Z3 


© 


bJ SCHRITT 


Variablenliste 


Stringvariable (Ja/Nein) 
erste Kraft 
zweite Kraft 
dritte Kraft 
Hilfsgröße (=F2) 
Hilfsgröße (=F1) 

Spalte Ursprung 
Spalte Punkt A 
Spalte Punkt B 
Spalte Punkt C 
erster Ansatzwinkel 
zweiter Ansatzwinkel 
Zeile Ursprung 
Zeile Punkt A 
Zeile Punkt B 
Zeile Punkt C 


© 


b.) SCHRITT 


Programmbeschreibung 


Satz 

10- 60 

: Überschrift 

Satz 

70 

: Ursprungskoordinaten 

Satz 

80-120 

: Eingabe der Ausgangsinformationen 

Satz 

130 

: Umrechnen der Winkel in Einheiten 
des Kreisparameters 

Satz 

135 

: Speichern der eingegebenen Kraft¬ 
angaben 
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Satz 

140 

: Normierung der beiden Kräfte 
zur Bildschirmausnutzung 

Satz 

150-160 

: Bestimmung der Koordinaten von A 

Satz 

165-180 

: Zeichnen von Fl 

Satz 

190-200 

: Koordinaten von B 

Satz 

210-220 

: Zeichnen von F2 

Satz 

230-240 

: Koordinaten von C 

Satz 

250-260 

: Zeichnen von F3 

Satz 

270 

: Berechnen von F3 (Pythagoras!) 

Satz 

275 

; Rückgängigmachen der Normierung 
von Satz 140 für F3 

Satz 

280-310 

: Ausgabe der Ergebnisse 

Satz 

320-340 

: Beendigung des Programms, es sei 
denn, es wird eine Alternativrech' 


nung gewünscht (dann zurück zu Satz 90). 



SCHRITT 


Ergebnisse 


Auf die Darstellung von Ergebnissen kann hier - ange¬ 
sichts der Skizze aus dem 1. Schritt - verzichtet 
werden. 
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Das ühm'sche Gesetz 



SCHRITT 


Vorstellung des 
Porblems 


In Stromleitern, in denen bei steigender Span¬ 
nung die Stromstärke proportional zunimmt, gilt das 
ühm'sche Gesetz. 


Es besagt in Formelschreibweise : 


Spannung 

Stromstärke 


konstant 


R 


Die Größe R nennt man den elektrischen Widerstand des 
betreffenden Stromleiters. 

Im folgenden Programm soll für jeweils zwei eingegebene 
Werte (Spannung, Stromstärke, Widerstand) die jeweils 
dritte Größe berechnet werden. 

Diese Aufgabe gibt uns die Gelegenheit, die PRINT USING- 
Anweisung einzuführen: 

Der Satz 

X = 12.323:PRINT USING " . ";X 

führt zum Ergebnis 12.32. 

Mit der "Maske" " " (oder anderen) kann also angege¬ 

ben werden, mit wievielen Stellen ein Rechenergebnis 
erscheinen soll. Es wird dabei korrekt gerundet. 
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SCHRITT 


Problemanalyse 


Das Programm, um das es hier geht, bietet unter mathe¬ 
matischen Gesichtspunkten überhaupt keine Schwierigkei¬ 
ten, weil ja im Prinzip nur ein einziger Rechenschritt 
erforderlich ist. 

Die einzige Schwierigkeit ist programmlogischer Art und 
besteht darin, daß die Eingabe aus drei unterschiedli¬ 
chen Varianten bestehen kann, aenen sich dann unter¬ 
schiedliche Rechenprozeduren anschliessen, 

Diese Eingaben können sein : 

1 . Spannung und Stromstärke; 

2. Spannung und Widerstand; 

3, Stromstärke und Widerstand. 

Dies gibt uns Gelegenheit, die sog. Menütechnik vorzu¬ 
führen : 

Es geht dabei darum, dem Programmbenutzer ein "Menü" 
zur Auswahl auf dem Bildschirm vorzugeben, aus dem die¬ 
ser dann die gewünschte Variante auszuwählen hat. Je 
nach Auswahl koitimen dann unterschiedliche, wenn auch 
hier sehr einfache Rechenprozeduren in Gang. 

Dieses Menü würde hier aus drei Positionen bestehen 
(s.o) . 

Der Problemlösungsweg selbst wird aus dem folgenden 
Flußdiagramm deutlich. 






Voß 

Kapitel 4 : Physik 

Seite 

Schule 

Abschnitt 9 : ohm'sches Gesetz 

175 


© 


SCHRITT 


Flußdiagramra 
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SCHRITT 


Programin 


10 REM P6-0HMSCHES GESETZ 
20 CLS 

30 PRINT"PROGRAMM ZUR DARSTELLUNG DER BEZIEHUNGEN" 
40 PRINT"ZWISCHEN STRÖMSTAERKE, SPANNUNG UND WI-" 
50 PRINT TAB(7)"DERSTAND (OHMSCHES GESETZ)." 
^gj^|:INT:PRINT:PRINT TAB (9) "PROF. DR. W. VOSS , 1984" : 

:j?0^^‘R|I.^Jl^^:RINT"MIT WELCHEN VORGABEN WIRD GEARBEITE 

80 PRINT TAB(5)"SPANNUNG UND STROMSTAERKE (1)" 
‘^Clj^=‘RINT:PRINT TAB (5) "SPANNUNG UND WIDERSTAND 

l(‘)i^^5^’RINT: PRINT TAB (5) "STROMSTAERKE UND WIDERSTAND 
110„PgINT:PRINT:INPUT"BITTE ZIFFER EINGEBEN 
120 CLS 

130 IF A>1 THEN 190 
140 INPUT "SPANNUNG : ";U 

150 INPUT "STROMSTAERKE : ";I 

160 R=U/I 

I^T: PR I NT: PR I NT " WI DERSTAND : " ; US ING " ### 

180 GOTO 300 

190 IF A=3 THEN 250 

200 INPUT "SPANNUNG : "sU 

210 INPUT "WIDERSTAND : ";R 

220 I=U/R 

IJO^gRJ^T:PRINT:PRINT"STROMSTAERKE : ";USING "### 
240 GOTO 300 

250 INPUT "WIDERSTAND : ";R 

260 INPUT "STROMSTAERKE : ";I 

270 U=R*I 

I[jT: PRINT: PRINT"SPANNUNG ; " ; USI NG "### 

pR^.^T:PRINT:PRINT: INPUT "NOCH EINE RECHNUNG (J 

310 IF A^:="J" THEN CLS: GOTO 70 

320 PRINT:PRINT"ENDE DER BERECHNUNGEN":END 
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SCHRITT 


Variablenliste 


A = Auswahlvariable (Menü) 

A$ = Stringvariable (Ja,Nein) 

I = Stromstärke 

R = Widerstand 

U = Spannung 



SCHRITT 


Programmbeschreibung 


Satz 10-60 


: Überschrift und Erläuterungen 


Satz 70-100 


: Vorgabe des Menüs 


Satz 110 


: Menüauswahl 


Satz 120-130 : Wenn A größer als 1 ist (A = Menü¬ 

variable) geht es nach Löschen des 
Bildschirms weiter bei Satz 190 


Satz 140-150 
Satz 160-170 
Satz 180 
Satz 190-240 


: Eingaben gemäß Auswahl A = 1 
: Berechnungen und Ergebnisausgabe 
: Sprung zum Satz 300 

: Entsprechende Berechnungen wie oben; 
nun aber für A = 2 






Voß 

Kapitel 

4 

; Physik 

Seite 

Schule 

Abschnitt 

9 

: Ohm'sches Gesetz 

178 


Satz 25^-280 


: Entsprechende Berechnungen; nun für 
A = 3 


Satz 30^^-310 : Abfrage, ob noch eine Berechnung ge¬ 

wünscht wird 

wenn ja. Löschen des Bildschirms und 
zurück zum Satz 70 

Satz 320 : Beendigung des Programms 



SCHRITT 


Ergebnisse 


Wählen wir bei der Menüauswahl z.B. die Ziffer 1, so 
werden vom Programm Spannung und Stromstärke angefor¬ 
dert. Geben wir daraufhin z.B. für die Spannung den 
Wert 220 an und für die Stromstärke den Wert 11, so 
erhalten wir als Ergebnisausdruck : 


WIDERSTAND : 20 


9 


NOCH EINE RECHNUNG (J/N) 
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Kapitel 5 : Sprachen 



Vorbemerkung und BASIC-Ergänzungen 


Auch beim Erlernen oder beim üben von Fremd¬ 
sprachen können Rechner wirkunsvolle Hilfe leisten. Da¬ 
bei geht es jetzt nicht darum, komplette Sprachunter¬ 
richtsprogramme (zum Beispiel zum Erlernen von Englisch) 
vorzustellen, weil dies den Rahmen und den Anspruch 
dieses Buches weit übersteigen würde - außerdem kann 
man solche "Komplettprogramme" schon zu relativ günsti¬ 
gen Preisen käuflich erwerben. Vielmehr interessiert 
hier, mit geringem Aufwand einfache Programme zu er¬ 
stellen, die den sprachlernenden Schüler bei seinen Be¬ 
mühungen unterstützen können. 

In Frage kommen hier in erster Linie solche Programme, 
die das Erlernen von Vokabeln erleichtern, oder die 
Übersetzungen bereitstellen, um so das Nachschlagen 
in Wörterbüchern zu ersparen. 
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Für derartige Programme ist es nun allerdings notwen¬ 
dig, einige zusätzliche BASIC-Anweisungen kennenzuler¬ 
nen ; 


Statement 2o: 


nn Name3=INKEY^ 


Dieses Statement wartet, ähnlich wie das schon oft be¬ 
nutzte INPUT-Statement, eine Informationseingabe ab, 
die dann der Stringvariablen Name^ zugeordnet wird. 
Diese Eingabe braucht nicht durch die ENTER-Taste ab¬ 
geschickt zu werden. In den späteren Programmen wird 
die Funktionsweise deutlich werden. 

Häufig ist es sinnvoll, daß bestimmte Programmsegmente 
aus dem eigentlichen Hauptprogramm ausgelagert werden, 
um dann von diesem aus mehrfach angesprungen zu wer¬ 
den . 

Solche ausgelagerten Teilprogramme nennt man Unterpro¬ 
gramme (subroutines). Der Sprung vom Hauptprogramm in 
das Unterprogramm erfordert das folgende Statement : 


Statement 21 : 


nn GOSUB mm 


Dieses Statement bewirkt einen Sprung in das Unterpro¬ 
gramm, das mit der Satznummer mm beginnt. 
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Ist dann das Unterprogramm abgearbeitet, muß ein Rück¬ 
sprung in das Hauptprograiom erfolgen. Zu diesem Zweck 
wird das Unterprogramm mit aem folgenden Statement be¬ 
schlossen : 


Statement 2 2: 


nn RETURN 


Dieses Statement bewirkt, daß ein Rücksprung an dieje¬ 
nige Stelle des Hauptprogramms erfolgt, die direkt hin¬ 
ter der entsprechenden GOSUB-Anweisung folgt. 

Auch aie Wirkungsweise dieser beiden Statements wird 
in den folgenden Programmen deutlich werden, so daß 
hier auf Demonstrationsbeispiele verzichtet werden 
kann. 
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Englische unregelmäßige Verben 


SCHRITT : Vorstellung des 

Problems 


In einem ersten Beispiel soll ein Programm 
vorgestellt werden, welches für ein eingegebenes eng¬ 
lisches Verb die dazugehörigen unregelmäßigen Stamm¬ 
formen angibt. 

Beispielsweise soll der Rechner auf die Eingabe des 
Verbs 


go 

mit üen Meldungen 

go went gone (gehen) 


antworten. 

Um den Programmieraufwand nicht zu hoch werden zu las¬ 
sen, wollen wir uns dabei auf 2<t> wichtige unregelmäßi¬ 
ge Verben beschränken. Der Leser wird sofort erkennen, 
wie er das Programm in Eigenarbeit ergänzen muß, um 
einen kompletten überblick über alle englischen unre¬ 
gelmäßigen Verben zu erhalten. 
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SCHRITT 


Problemanalyse 


Das Programm, um das es hier geht, muß für ein einzu¬ 
gebendes Schlüsselwort alle drei Stammformen und die 
deutsche Übersetzung des betreffenden Verbs ausgeben. 

Dies macht es erforderlich, daß alle Informationen zu¬ 
nächst dem Rechner eingegeben werden. 

Bei sehr umfangreichen Informationsbeständen ist es 
sinnvoll, die Ausgangsinformationen nicht bei jedem 
Programmstart neu zu lesen, sondern nur die gewünschte 
Information aus einer Textdatei einer entsprechend vor¬ 
bereiteten Diskette interaktiv einzulesen. Diese Möglich¬ 
keit, auf die fortgeschrittenere Programmierer sicher¬ 
lich zugreifen werden - zumindest sofern sie über ein 
Diskettenlaufwerk verfügen - soll hier aber nicht be¬ 
sprochen werden. 

Wir lassen also bei jedem Programmstart die Ausgangs¬ 
informationen lesen und lassen dann das Programm das 
gewünschte englische Verb anfordern. Der Rechner ver¬ 
gleicht dann diese Eingabe mit den Gesamtinformationen, 
bis er aas betreffende Verb im Datenbestand gefunden 
hat. Dann kann er die Stammformen und die deutsche Über¬ 
setzung ausgeben. 

Findet er bei diesen Vergleichen in seinem Datenbestand 
das eingegebene Verb nicht, dann deshalb, weil es 

- entweder im Datenbestand noch nicht vorhanden 
ist (wir haben ja vorläufig nur 20 Verben auf¬ 
genommen) , 
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- oder, weil es sich bei dem eingegebenen Verb 
nicht um ein unregelmäßiges Verb handelt. 


In beiden Fällen, die aber bei dem folgenden Programm 
wegen der Nicht-Vollständigkeit der Ausgangsinformatio¬ 
nen nicht voneinander trennbar sind, ist eine Meldung 
auszugeben. 


Weiterhin soll das Programm dem Benutzer die Gelegen¬ 
heit geben, ein weiteres Verb abzufragen. 


Die Stammformen selbst und die deutsche Übersetzung 
können, da es sich immer um Strings handelt, in einem 
doppelt indizierten String-Array gespeichert werden. 



SCHRITT 


Flußdiagramm 
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SCHRITT 


Programm 


10 REM S1-UNREGELM.VERBEN,ENGLISCH 
20 CLS 

30 PRINT"PROGRAMM ZUR AUSGABE DER STAMMFORMEN" 

40 PRINT"VON EINGEGEBENEN ENGLISCHEN UNREGEL-" 

50 PRINT TAB(ll)"MAESSIGEN VERBEN." 

60 PRINT:PRINT:PRINT TAB(9)"PROF.DR.W.VOSS, 1984" 
70 PRINT:PRINT:PRINT:PRINT 

80 PRINT"DIE ZAHL DER VORHANDENEN WORTE IST IN" 

90 PRINT"DIESEM PROGRAMM BESCHRAENKT. ERWEITE-" 

100 PRINT"RUNGEN SIND MOEGLICH, WENN DIE LISTE" 

110 PRINT"DER DATA-STATEMENTS VERLAENGERT WIRD" 

120 PRINT"(SATZ 500 FF.) UND WENN IN SATZ 160 DIE" 
INT "ANGABE EUER N ERHOEHT WIRD. ": PRINT: PRINT 

135 LOCATE 5,23:PRINT"BITTE EINE TASTE DRUECKEN !" 
140 A^:=INKEY^ 

150 IF A^="" THEN 140 

155 CLS:PRINT TAB(12)"MOMENT BITTE":PRINT:PRINT 

160 N=20 

170 DIM Wi:(N,4) 

l^g(jj)^FyR 1 = 1 TO N:FOR J = 1 TO 4:READ WT(I,J):NEXT J: 
190 CLS 

200 PRINT"BITTE DAS DEUTSCHE VERB, DESSEN ENGL-" 
210 PRINT"SCHE STAMMFORMEN GEWUENSCHT WERDEN," 

220 INPUT "EINGEBEN : "; V-t 

230 FÜR 1=1 TO N 
240 IF Vi:=W^(I,l) THEN 275 
250 NEXT I 

g^j;jAfjg^f;|TRpRINT:PRINT"VERB NICHT IM DATENBESTAND V 

270 PRINT"BZW. NICHT UNREGELMAESSIG.":GOTO 310 
275 PR INT:PRINT:PRINT 

280 PR INT "VERB : "; W4: (I , 1): PRINT: PRINT: PRINT 

290 PRINT"ENGLISCHE STAMMFORMEN : ":PRINT 
300 FOR J=2 TO 4: PRINT W:T(I,J);" ";:NEXT J 
310 PRINT:PRINT:PRINT: INPUT-NOCHMAL (J/N) " ; A$: 

320 IF A:t="J" THEN CLS: GOTO 200 

330 PRINT:PRINT:PRINT"ENDE":END 

500 DATA SEIN,BE,WAS,BEEN 

502 DATA HABEN,HAVE,HAD,HAD 

504 DATA BEGINNEN,BEGIN,BEGAN,BEGUN 

506 DATA BRINGEN,BRING,BROUGHT,BROUGHT 

508 DATA KOMMEN,COME,CAME,COME 

510 DATA TUN,DO,DID,DONE 

512 DATA ESSEN,EAT,ATE,EATEN 

514 DATA KAUFEN,BUY,BOUGHT,BOUGHT 

516 DATA FUEHLEN,FEEL,FELT,FELT 
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518 

DATA 

520 

DATA 

522 

DATA 

524 

DATA 

526 

DATA 

528 

DATA 

530 

DATA 

532 

DATA 

534 

DATA 

536 

DATA 

538 

DATA 


FINDEN,FIND,FOUND,FOUhü 
GEHEN, GO , UJENT , GONE 
VERLIEREN,LOSE,LOST,LOST 
MACHEN,MAKE,MADE,MADE 
LESEN,READ,READ,READ 
LAUFEN,RUN,RAN,RUN 
SAGEN,SAY,SA ID,SA ID 
SEHEN, SEE,SAU,SEEN 
SITZEN,SIT,SAT,SAT 
SPRECHEN,SPEAK,SPOKE,SPOKEN 
NEHMEN,TAKE,TOOK,TAKEN 



SCHRITT 


Variablenliste 


A$ = Stringvariable für Eingaben 

I = Laufvariable 

J = Laufvariable 

N = Anzahl der Datensätze 

= Gewünschtes Verb 

= Stammformen der Verben und deutsche Übersetzung 
(Ausgangsdatenbestand) 
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SCHRITT 


Programmbeschreibung 


Satz 1^z5-135 : Überschrift, Erläuterungen und Hinweise, 

wie der Datenbestand aktualisiert wer¬ 
den kann 

Satz 140-150 : Programm in "Warteposition". Die Pro¬ 

grammausführung geht erst weiter, wenn 
der Benutzer irgendeine Taste drückt. 


Satz 155 


: Löschen des Bildschirms und Hinweis 


Satz 160-180 


Dimensionierung und Einlesen der Daten 


Satz 190-220 


Löschen des Bildschirms und Anforderung 
des gewünschten Verbs 


Satz 230-250 : Suche nach dem richtigen Datenbestand 

Wird er gefunden, dann weiter bei 275 
wird er nicht gefunden, weiter bei 260 


Satz 260-270 ; Meldung, daß Verb im Datenbestand nicht 

vorhanden; dann weiter bei Satz 310 

Satz 275-300 : Ausgabe der gesuchten Informationen 


Satz 310-320 : Abfrage, ob weitere Ausgabe gewünscht 

wenn ja. Löschen des Bildschirms und 
zurück zu Satz 200 

Satz 330 : wenn nein, Ende des Programms 
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Satz 50^^-538 ; Daten 



SCHRITT 


Ergebnisse 


Gibt man beispielweise auf die Anforderung des Rechners 
aus Satz 2^^ ein : 


GO 

so antwortet der Rechner : 


VERB : GEHEN 

ENGLISCHE STAMMFORMEN : 

GO WENT GONE 

NOCHMAL (J/N) ? 


Es ist deutlich zu sehen, wie das Programm geändert 
werden müßte, wenn die Liste der unregelmäßigen Verben 
komplettiert werden soll : In den Sätzen ff. sind 

weitere DATA-Statements anzuhängen und Satz 16^ muß 
ausgetauscht werden mit der Angabe der aktuellen Zahl 
eingegebener Verben. 
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Französisch-Vokabeln 


SCHRITT : Vorstellung des 
Problems 


In diesem Beispiel soll nun gezeigt werden, 
wie der Rechner als Vokabelheft-Ersatz Verwendung fin¬ 
den kann. Auf ein einzugebendes französisches Wort ant¬ 
wortet er mit dem entsprechenden deutschen Wort oder 
umgekehrt (es gilt hier die gleiche Anmerkung wie in 
Abschnitt 5.2 zur interaktiven Nutzung eines Disketten¬ 
speichers) . 

Um das Programm wieder nicht zu groß werden zu lassen, 
beschränken wir uns auf nur zehn Vokabeln. Dieses Pro¬ 
gramm dient also nur als Beispiel. Wenn es echt genutzt 
werden soll, müßte sich der Leser die Mühe machen, sei¬ 
nen gesamten deutsch-französischen Vokabelvorrat zu¬ 
nächst dem Rechner eiiizugeben. 

An den Funktionsprinzipien des Programms ändert sich 
aber dadurch nichts. 
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SCHRITT 


Problemanalyse 


Bei diesem Problem können wir uns kurz fassen : 

Gibt der Benutzer ein deutsches Wort ein, sc muß der 
Rechner durch Vergleich mit allem ihm zur Verfügung 
stehenden deutschen (und damit paarweise verbundenen 
französischen Worten) das entsprechende deutsch-franzö¬ 
sische Wortpaar aus seinem Datenbestand heraussuchen 
und ausgeben. Entsprechend ist auch im umgekehrten Fall 
zu verfahren. 

Damit beide "Übersetzungsrichtungen" in nur einem Pro¬ 
gramm bewältigt werden können, muß dem Rechner zunächst 
mitgeteilt werden, ob deutsch-französische oder ob 
französisch-deutsche Übersetzung gewünscht wird. 

Falls das eingegebene Wort nicht übersetzt werden kann, 
weil es in der (hier sehr kurzen) Vokabelliste (noch) 
nicht vorhanden ist, muß wieder eine entsprechende Mel¬ 
dung erfolgen. 

Weiterhin sollte dem Benutzer Gelegenheit geboten wer¬ 
den, im gleichen Programmlauf eine weitere Übersetzung 
zu erhalten, wenn er dies wünscht. 
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SCHRITT 


Flußdiagramm 
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SCHRITT 


Programm 


REM S2-VERBEN DEUTSCH-FRANZÜESICH 
CLS 

PRINT"PROGRAMM ZUM NACHSCHLAGEN VON VOKABELN:" 
PRINT:PRINT"DEUTSCH/FRANZOESICH ODER UMGEKEHRT. 


PRINT;PR INT:PRINT TAB(9)"PROF.DR.W.VOSS, 1984" 

PRINT:PRINT:PRINT:PRINT 

PRINT"IM DATENBESTAND DIESES PROGRAMMS BEF IN-" 
PRINT"DEN SICH NUR 10 VOKABELN.PRINT 
PR INT"SOLL DAS PROGRAMM AUSGEWEITET WERDEN," 

PRINT"SO MUESSEN IN 500 FF. WEITERE DATA-STA-" 
PRINT"TEMEMTS ANGEFUEGT UND DER WERT EUER N" 
PRINT"IN STATEMENT 160 GEAENDERT WERDEN." 
LOCATE 5,23:PRINT"BITTE EINE TASTE DRUECKEN '" 
At:=INKEY^; IF A^="" THEN 140 
CLS:PRINT"MOMENT BITTE" 

N=10 

DIM Di: (N) ,Fi: (N) 

FOR 1 = 1 TO N;READ Di: ( I ) , Fi: ( I ) ; NEXT i 
CLS 

PRINT"WELCHE UEBERSETZUNG WIRD GEWUENSCHT ?" 
PRINT:PRINT;PRINT"- DEUTSCH-FRANZOESICH (1)" 
PRINT;PRINT"ODER" 

PRINT:PRINT "- FRANZOESICH-DEUTSCH (2>" 
PRINT:PRINT:INPUT"BITTE 1 ODER 2 EINGEBEN ";Z 
CLS 

IF Z=2 THEN 350 

PRINTrPRINT: INPUT"DEUTSCHES WORT BITTE : "; Wi- 

FOR 1 = 1 TO N:IF Wi=Di: (I) THEN 320 
NEXT I 

PRINT:PRINT"GESUCHTES WORT IM DATENBESTAND NIC 


PRINT"VORHANDEN.": GOTO 450 
CLS-.PRINT "DEUTSCH : 

PRINT:PRINT "FRANZOESISCH 
GOTO 450 

PRINT:PRINT;INPUT"FRANZ. WORT 
FOR 1 = 1 TO N; IF Wi=Fi: (I) THEN 
NEXT I 

PRINT:PRINT"GESUCHTES WORT IM 


";Di(I) 

; ";Fi(I) 


BITTE : ";Wi 
400 


DATENBESTAND NIC 


PRINT"VORHANDEN.":GOTO 450 
CLS:PRINT"FRANZOESICH ; ";Fi (I) 

PRINT:PRINT "DEUTSCH ; ";Di(I) 

PRINT;PRINT:PRINT;INPUT"NOCHMAL ? (J/N) ";Ai 

IF Ai="J" THEN CLS;GOTO 200 
PR INT-.PRINT "ENDE DER AUSGABE": END 
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500 

DATA 

KAUFEN,ACHETER 

50£ 

DATA 

HABEN,AVOIR 

504 

DATA 

GEHEN,ALLER 

506 

DATA 

SEHEN,VOIR 

508 

DATA 

TRINKEN,BDIRE 

510 

DATA 

MACHEN,FA IRE 

518 

DATA 

LESEN,LIRE 

514 

DATA 

ESSEN,MANGER 

516 

DATA 

NEHMEN,PRENDRE 

518 

DATA 

RAUCHEN,FUMER 


SCHRITT ; Variablenliste 



A$ = Stringvariable für Eingaben 

D$ = deutsche Vokabeln 
F$ = französische Vokabeln 

I = Laufindex 
N = Anzahl der Datensätze 

= gewünschtes Wort 

Z = Kennziffer bei der Menü-Auswahl 
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SCHRITT 


ProgrammbeSchreibung 


Satz 1^-120 
Satz 130-150 

Satz 160-180 

Satz 190-240 
Satz 245-250 

Satz 260 
Satz 280-290 
Satz 300-310 

Satz 320-330 
Satz 340 
Satz 350-410 

Satz 450-470 
Satz 500-518 


Überschrift, Erläuterungen etc. 

Warten, bis Tastendruck erfolgt und Lö¬ 
schen des Bildschirms 

Angabe der Anzahl der Datensätze, Di¬ 
mensionierung und Eingabe der Ausgangs¬ 
daten 

Löschen des Bildschirms und Menüvorgabe 

Wird 2 eingegeben (französisch-deutsch), 
dann weiter bei Satz 350 

Eingabe eines deutschen Wortes 

Suche nach dem entsprechenden Datensatz 

Ist das gesuchte Wort im Datenbestand 
(noch) nicht vorhanden, weiter bei 450 

Ausgabe der Ergebnisse 

Sprung nach Satz 450 

Entsprechende Vorgehensweise für die 
Eingabe eines französischen Wortes 

Beendigung des Prograimras mit Wiederho¬ 
lungsmöglichkeit 
Daten 
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SCHRITT 


Ergebnisse 


Geben wir nach der Menüvorgabe die Ziffer 1 ein und 
entscheiden uns damit für die deutsch-französische 
Ausgabe, so fordert der Rechner von uns ein deutsches 
Wort an. 

Geben wir z.B. daraufhin das Wort haben ein, so ant¬ 
wortet der Rechner : 


DEUTSCH : HABEN 

FRANZÖSISCH : AVOIR 

NOCHMAL (J/N) ? 
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Englisch“Vokabeltest 



SCHRITT 


Vorstellung des 
Problems 


Ähnlich wie im vorangegangenen Abschnitt sol¬ 
len - ausgehend von einem bestimmten Vokabelvorrat - 
Übersetzungen bereitgestellt werden. Im Gegensatz aber 
zum vorhergehenden Programm soll der Benutzer aufgefor¬ 
dert werden, zu einem vom Rechner zufällig ausgewähl¬ 
ten deutschen Wort das korrekte englische Wort einzu¬ 
setzen . 

Es wird hier also ein Programm vorgestellt, das so funk¬ 
tioniert wie früher das Vokabellernen mit zugehaltener 
Fremawortspalte im Vokabelheft vor sich ging. 

Es leuchtet unmittelbar ein, daß ein entsprechendes Pro¬ 
gramm auch für Englisch-Deutsch bzw. für andere Fremd¬ 
sprachen verwendet werden könnte. 

Im Interesse der Reduzierung des Programmieraufwandes 
beschränken wir uns hier wieder auf die exemplarische 
Darstellung anhand von nur zehn Vokabeln. Eine Unter¬ 
gruppe davon wird jeweils vom Rechner zufällig ausge¬ 
wählt und dem Benutzer wird nach jeder Serie mitgeteilt, 
wie hoch seine Erfolgsquote war. 
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SCHRITT 


Problemanalyse 


Ausgehend von einem vorgegebenen Datenbestand, muß das 
Programm eine Zufallsauswahl treffen. 

Auf jede vorgegebene Vokabel antwortet der Benutzer. Die 
Anzahl der richtigen Antworten wird in Beziehung gesetzt 
zur Anzahl der angeforderten Antworten. 

Das Programm soll Gelegenheiten zur Testwiederholung 
bieten. 

Besondere Schwierigkeiten tauchen bei der Problemana¬ 
lyse desweiteren nicht auf. 
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SCHRITT 


Flußdiagramm 
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20 

30 



SCHRITT 


REM S3-V0KABELTEST 
CLS 

PRINT"PROGRAMM ZUM 


40 PRINT:PRINT"HIER : 
HR T 


Programm 


ABFRAGEN VON VOKABELN 
DEUTSCH/ENGLISCH ODER 


UMGEKE 


50 PRINT:PR INT;PRINT TAB(9)"PROF.DR.W.VOSS, 1984" 
60 PRINT;PRINT:PRINT;PR INT 


70 PRINT"IM DATENBESTAND DIESES PROGRAMMS BEFIN-" 
80 PRINT"DEN SICH NUR 10 VOKABELN.";PRINT 
90 PRINT-SOLL DAS PROGRAMM AUSGEWEITET WERDEN," 

100 PRINT"SO MUESSEN IN 1000 FF.WEITERE DATA-STA~" 
110 PRINT"TEMENTS ANGEFUEGT UND DER WERT EUER N" 
120 PRINT"IN STATEMENT 160 GEAENDERT WERDEN." 

130 LOCATE 5,23:PRINT"BITTE EINE TASTE DRUECKEN !" 
140 Ai:=INKEV.$:: IF A^="" THEN 140 
150 CLS:PRINT"MOMENT BITTE" 

160 N=10 

170 DIM DT(N,2) 

180 FOR I = 1 TO N: READ DT(I,1) ,D^(I,2) :NEX f I 
185 ZZ=1 
190 CLS 


200 PRINT"DEUTSCH/ENGLISGH (1)" 

210 PRINT:PRINT;PRINT"ODER" 


220 PRINT:PRINT:PR1NT"ENGLISCH/DEUTSCH (2)" 

^3(j) PRINT; PRINT; PRINT"BITTE 1 ODER 2 EINGEBEN ": PR 


240 INPUT " '•;Z 

.'•15 IF Z . ZZ THEN GOSUB 3000: REM TAUSCH 

^;5<-V_PRINT : PRINT: PRIN I "WIEVIELE VOKABELN SOLLEN GEP 
RUtr T 

260 INPUT "DEN ";A 
270 GOSUB 2000 

400 PRINT:INPUT "NOCHMAL ? (J/N) ";AT 

410 IF AT="J" THEN CLS;ZZ = Z;GOT0 200 

420 PRINT:PR INT"ENDE DER AUSGABE":END 

450 PRINT;PRINT:PRINT;INPUT"NOCHMAL ? (J/N) ";AT 

460 IF AT=-"J" THEN CLS; GOTO 200 

470 PRINT;PRINT"ENDE DER AUSGABE";END 

1 Jg LAUFEN , RUN , SCHREI BEN, WRITE , DRUCKEN , PR I NT 

1 Jg WENN , IF , UN TERPROGRAMM, SUBROUT I NE , RECHNER 

^Ogg^DATA ZEICHEN,CHARACTER,BILDSCHIRM,SCREEN,TAGT 
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200 

2000 CLS 

2005 K=0 

2010 1=1 

2020 R=INT(RND(1)*N+1) 

2030 PRINT D-f (R, 1);: INPUT “ ANTWORT : 

2050 PRINT:PRINT:PRINT"DAS WAR LEIDER FALSCH." 

;^060 PRINT: PR INT "RICHTIG MUSS ES HEISSEN : ";D^(R, 

2070 PRINT:PRINT:PR INT:I = I +1 

2080 IF I::.=A THEN 2020 

2090 K A = (K / A) * 10 0 

2;, 00 „PR INT: PR INT "ANTEIL KORREKTER ANTWORTEN : "; 

KA 

2110 

3000 

3010 

3020 

3030 

3040 

RETURN 

REM UP TAUSCH 

FOR 1=1 TO N 

(I , 1) : ( I , 1) (I ,2) : D:f (I ,2) =Hi: 

NEXT I 

RETURN 



SCHRITT : Variablenliste 


A 

= 

Anzahl der zu prüfenden Vokabeln 

AntwortString 


= 

H$ = 

Vokabeln 

Hilfsfeld beim Tausch in UP 300^ 


I 

K 

KA = 

N 

R 

Laufindex 

Anzahl korrekter Antworten 

Anteil korrekter Antworten 

Anzahl der Vokabeln im Datenbestand 

Zufallszahl 


= 

Antwort des Benutzers 


Z 

ZZ = 

Ziffernantwort im Menü 

Hilfsgröße (auf 1 gesetzt) für den eventuellen 

Tausch Deutsch-Englisch 
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SCHRITT 


Programmbesehreibung 


Satz 10-120 ; Überschrift, Erläuterungen und Hinweise 

auf die eventuelle Verlängerung des Pro¬ 
gramms 


Satz 130-150 


Warten, Loschen des Bildschirms und 
Hinweis auf die Einlesedauer 


Satz 160-180 


Angabe der Zahl der Vokabeln im Daten¬ 
bestand, Dimensionieren und Einlesen 


Satz 185 : Belegung der Hilfsvariablen ZZ mit 1 

Satz 190-240 ; Löschen des Bildschirms, Ausgabe des 

Menüs und Anforderung der Benutzeraus¬ 
wahl 


Satz 245 : Abfrage, ob Menü 1 gewählt wurde 

wenn nein, Sprung ins UP 3000 
wenn ja, weiter bei 250 

Satz 250-260 ; Anforderung der Anzahl der zu testenden 

Vokabeln 


Satz 270 : Sprung ins UP 2000 

Satz 400-420 : Abfrage, ob noch ein Test (zurück zu 

Satz 200) und Beendigung des Programms 


Satz 1000-1020: Daten 
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Satz 2000-2110 : UP Zufallsauswahl : 


2005-2010 ; 

Zähler K und I auf Anfangs¬ 
positionen 

2020 : 

Zufallszahl 

2030 : 

Ausgabe der Vokabel und An¬ 
forderung der Antwort 

2040 : 

Bei korrekter Antwort er¬ 
folgt Sprung nach 2070 

2050-2060 : 

Fehlermeldung und Ausgabe 

der korrekten Antwort 

2070-2080 : 

Nächste Vokabel 

2090-2100 : 

Ausgabe des Erfolgsanteils 

2110 : 

Rücksprung 


Satz 3000-3040 : UP Tausch : 

Tausch Deutsch-Englisch - Englisch- 
Deutsch 



SCHRITT 


Ergebnisse 


Ergebnisse brauchen hier nicht vorgestellt zu werden. 
Was im Laufe des Programmablaufs an Ergebnissen ausge¬ 
geben wird, ergibt sich unmittelbar aus der Programm¬ 
beschreibung (siehe insbesondere Satz 2040 bis Satz 
2100 ). 
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Das Sortieren von Vokabeln 


Q SCHRITT : Vorstellung des 

Problems 


Das Sortieren von Datenbeständen ist eines der 
wichtigsten Einsatzgebiete von Rechnern. Das gilt so¬ 
wohl für das Sortieren von Zahlen als auch für das al¬ 
phabetische Sortieren von Begriffen oder allgemein von 
Strings. 

Es gibt eine ganze Reihe unterschiedlicher Sortieralgo¬ 
rithmen, die sich vor allem letztlich in der Sortier¬ 
geschwindigkeit voneinander unterscheiden. 

Dieser Aspekt der Rechengeschwindigkeit soll hier nicht 
interessieren - vielmehr wollen wir einen Algorith¬ 
mus vorstellen, der besonders klar den wesentlichen 
Grundgedanken, dem jeder Sortierprozeß folgen muß, zum 
Ausdruck bringt. 
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SCHRITT 


Problemanalyse 


"Sortieren" bedeutet, daß wir je zwei Strings aus einem 
Datenbestand miteinander vergleichen : 

Wir vergleichen den ersten Schritt für Schritt mit allen 
übrigen Strings. Folgt dabei der erste String im Alpha¬ 
bet hinter dem zweiten, dann müssen die beiden gerade 
verglichenen Strings getauscht werden. 

Dadurch wird erreicht, daß dann, wenn der erste String 
mit allen übrigen verglichen wurde (nach der ersten 
Runde also), an der ersten Stelle nun derjenige String 
steht, der im Alphabet als erster kommt. 

Dann vergleichen wir den jetzt an zweiter Stelle ste¬ 
henden String mit allen übrigen (außer mit dem ersten 
String). Auch hier wird wieder getauscht, wenn es er- 
foraerlich ist. Am Schluß der zweiten Vergleichsrunde 
steht dann an der zweiten Stelle derjenige String, der 
im Alphabet tatsächlich an zweiter Stelle kommt. 

Dann vergleichen wir den jetzt an dritter Stelle ste¬ 
henden String mit allen übrigen ... usw. 

Es werden insgesamt so viele Runden durchlaufen, wie 
überhaupt Vergleiche möglich sind. Haben wir beispiels¬ 
weise fünf Strings zu sortieren, so müssen vier derar¬ 
tige Runden durchlaufen werden : In der ersten Runde 
gibt es vier Vergleiche, in der zweiten Runde drei, 
in der dritten Runde zwei und in der vierten Runde 
noch einen Vergleich. 
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Schematisch sieht dies folgendermaßen aus : 


1 . 

Runde 

: Vergleich 

Feld 

1 

mit 

Feld 

2 



Vergleich 

Feld 

1 

mit 

Feld 

3 



Vergleich 

Feld 

1 

mit 

Feld 

4 



Vergleich 

Feld 

1 

mit 

Feld 

5 

2 . 

Runde 

: Vergleich 

Feld 

2 

mit 

Feld 

3 



Vergleich 

Feld 

2 

mit 

Feld 

4 



Vergleich 

Feld 

2 

mit 

Feld 

5 

3. 

Runde 

: Vergleich 

Feld 

3 

mit 

Feld 

4 



Vergleich 

Feld 

3 

mit 

Feld 

5 

4. 

Runde 

; Vergleich 

Feld 

4 

mit 

Feld 

5 

ist 

: dabei 

zu beachten, 

daß nach 

den 

ersten Verglei* 


chen die Inhalte der Felder immer andere sein können, 
je nachdem, ob und an welchen Stellen getauscht werden 
mußte. 
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SCHRITT 


Flußdiagramm 
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SCHRITT 


Programm 


Im Gegensatz zu dem im vorangegangenen Flußdiagramm 
vorgesehenen Ablauf ist hier im Programm zusätzlich 
vorgesehen, daß der Benutzer entscheiden kann, ob er 
die deutsch-englischen Vokabeln alphabetisch nach der 
deutschen Schreibweis e oder nach der englischen Schreib¬ 
weise sortieren möchte : 


10 REM S4-SÜRT 
20 CLS 

30,F*RINT TAB (2) "PROGRAMM ZUM SORTIEREN VON VOKABEL 

N. 

40 PRINT:PRINT:PRINT TAB(9)"PROF.DR.W.VOSS, 1984" 
50 PRI NT:PR INT:PR INT:PRINT 


60 PRINT"IN DIESEM PROGRAMM WERDEN NUR 10 ENGLI-" 
70 PRINT"SCHE VOKABELN SORTIERT.":PRINT 
80 PR INT"SOLLEN ANDERE VOKABELN SORTIERT WERDEN," 
90 PRINT"SO MUESSEN DIE DATA IN 500 FF. UND N IN" 
100 PRINT"SATZ 150 GEAENDERT WERDEN." 

110 LOCATE 5,23 

120 PRINT"BITTE EINE TASTE DRUECKEN !" 

130 A^=INKEYt: IF Ai^="" THEN 130 
140 CLS 
150 N=10 


160 
170 
180 
190 


210 

220 


DIM E4- (N) ,DT (N) 

FOR 1 = 1 TO N:READ Eif ( I ) , DT ( I ) : NEXT I 
PRINT"SOLL NACH DEN ENGLISCHEN ODER NACH DEN" 
PRINT"DEUTSCHEN VOKABELN SORTIERT WERDEN ?" 
PRINT:INPUT"GIB E ODER D EIN : ";AT 

IF AT="D" THEN 240 

CLS:PRINT"ENGLISCH";TAB(20)"DEUTSCH":PRINT:PRI 


230 GOSUB 1000:REM UP SORT 
235 GOTO 270 

^■4(') FOR 1 = 1 TO N: HT=ET ( I) : ET(I ) =DT (I ) : DT ( I ) =HT: NEX 
350 CLS:PRINT"DEUTSCH";TAB(20)"ENGLISCH":PRINT:PRI 


260 GOSUB 1000:REM UP SORT 

270 PR INT:PR INT"ENDE DER AUSGABE":END 
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PRINT,DRUCKEN,WRITE,SCHREIBEN,END,ENDE,Gü 

5^0^DATA RUN,LAUFEN,DATA,DATEN,SUBRÜUTINE,UNTERPRO 

520 DATA INPUT,EINGABE,SAVE,SPEICHERN,LOAD,LADEN 
1000 REM UP SORT 

1010 FÜR 1=1 Tü N-1 

1020 FOR a=I+l TO N 

1030 IF E^(I)<=E^(J) THEN 1070 

1040 (I) : G:f=D^ (I > 

1050 E:$(I)=E# (J) : Dt ( I) =D:f (J) 

1060 Et(J)=Ht:Dt(J)=Gt 

1070 NEXT J 

1080 PRINT Et(I);TAB(20)Dt(I) 

1090 NEXT I 

1100 PRINT Et(I);TAB(20)Dt(I) 

1110 RETURN 



SCHRITT : Variablenliste 


= 

Stringvariable für Antworten 


= 

Deutsche Vokabeln 


E$ = 

Englische Vokabeln 


G$ = 

Hilfsfeldl 


= 

Hilfsfeld2 


I 

Laufvariable 


J 

Laufvariable 


N 

Anzahl der Vokabeln 
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SCHRITT 


Programmbeschreibung 


10-110 

120-140 

150-170 

180-210 


220 

230 

235 

240 

250 

260 

270 

500-520 


: Überschrift und Erläuterungen 

: Warten und Löschen des Bildschirms 

: Angabe der Zahl der Vokabeln, Dimensio¬ 
nierung und Einlesen der Vokabeln 

; Abfrage, ob nach deutschen oder nach 
englischen Worten sortiert werden soll 

falls nach deutschen Worten, weiter bei 
270; andernfalls weiter bei 220 

: Ausgabe einer Tabellenüberschrift 

: Sprung ins UP 1000 zum Sortieren 

: Sprung zum Satz 270 

: Austausch der deutschen und der engli¬ 
schen Vokabeln 

: Ausgabe einer Tabellenüberschrift 
: Sprung ins UP 1000 zum Sortieren 
: Beendigung des Programms 
: Daten 
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Satz : UP Sortieren : 


Unterprogramm zum Sortieren von 
Strings : 


102jzi 


1040 - 1 ^ 2^60 

1070 

1080 


Rundenzähler 

Vergleichszähler 

Vergleich 

fällt er befriedigend aus^ 
weiter bei 1070, sonst 
weiter bei 1040 
Tausch 

Nächster Vergleich 
Nachdem kein Vergleich 
mehr möglich ist, Ausgabe 
der beiden nun an erster 
Stelle stehenden Strings 


1090 

1100 

1 110 


: Nächste Runde 
: Ausgabe des letzten String¬ 
paares 
: Rücksprung 



SCHRITT 


; Ergebnisse 


Wünschen wir beispielsweise die Sortierung nach den 
deutschen Vokabeln, so erhalten wir : 


DEUTSCH 

BEKOMMEN 

DATEN 

DRUCKEN 

ENDE 

GEHEN 


ENGLISCH 

GET 

DATA 

PRINT 

END 

GO 
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Kapitel 

6 : Biologie/Ökologie 



6.1 

I Vorbemerkung 


Der Rechnereinsatz bei biologisch-ökologischen 
Problemen bezieht sich insbesondere darauf, Entwick- 
lungs- und Wachstumsvorgänge zu simulieren (natürlich 
könnten aber auch Abfrageprogramme nach dem Muster des 
vorangegangenen Kapitels entwickelt werden). Diese Ent¬ 
wicklungen können dann auf dem Bildschirm tabellarisch 
oder auch graphisch ausgegeben werden. 
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Ungebremstes Wachstum 



SCHRITT 


Vorstellung des 
Problems 


Eine Population mit dem Anfangsbestand X0 
wachse mit einer jährlichen Wachstumsrate von R Pro¬ 
zent , (R sei positiv). Wenn dieses Wachstum nicht an 
äußere Grenzen stößt - was aber auf lange Sicht na¬ 
türlich sehr unwahrscheinlich ist - dann stellt sich 
ein sog. exponentielles Wachstum ein. 

Der Ablauf eines solchen sehr einfachen Wachstumspro¬ 
zesses soll durch ein BASIC-Programm simuliert werden. 

SCHRITT ; Problemanalyse 



Für das entsprechende Programm müssen der Anfangsbe¬ 
stand und die jährliche Zuwachsrate eingegeben werden. 

Nach einem Jahr erhält man dann den Bestand X1 : 

XI = X0 + X0*R/100 = X?5*(1 + R/^M 

Nach zwei Jahren ergibt sich X2 : 

X2 = X1*(1 + R/1^Zi^z5) = . X(?{*(1+R/l9i0)*(1+R/100) 
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Daraus folgt 


X2 = X0 * (1 + R/1^zS^z5)‘ 


Generell gilt deshalb nach T Jahren 

»T 


XT 


X0 * (1 + R/100)■ 


Diese Formel zeigt den Rechenalgorithmus für das ent¬ 
sprechende BASIC-Programm. 



SCHRITT 


Flußdiagramm 
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SCHRITT 


Programm 


10 REM Bl-WACHSTUM 
20 CLS 

30 PRINT-PROGRAMM ZUR TABELLARISCHEN DARSTELLUNG" 
40 PRINT TAB( 8 )"UNGEBREMSTEN WACHSTUMS." 

50 PRINT:PRINT:PRINT TAB(9)"PROF.DR.W.VOSS, 1984" 

60 PRINT:PRINT:PRINT:PRINT 

70 INPUT"ANFANGSBESTAND : ";X0 

80 PRINT: INPUT "WACHSTUMSRATE IN */. : ";R 

90 PRINT:INPUT"ANZAHL DER JAHRE : " 5 T 

J0(^ CLS:PRINT"NACH ... JAHREN BESTAND" : PR I NT ; PR 

110 1=1 

120 XT=X0* (1 -»-R / 100) •••• I 

130 PRINT TAB(5) I;TAB(19) US ING "#####.##••; XT 
140 1=1+1 

T'^ilNGEMN"-STÄp^^^'^^‘'^^ PRINT: PRINT"BITTE CON 

150 IF I<=T THEN 120 

160 PRINT:PRINT:INPUT"NOCHMAL ? (J/N) ";A^ 

170 IF A^="J" THEN CLS:GOTO 70 

180 PRINT:PRINT:PR INT"ENDE DER AUSGABE":END 



SCHRITT 


Variablenliste 


A$ = AntwortString (Ja,Nein) 

I = Laufindex 

R = Wachstumsrate in % 

T = Zeit 

X0 = Anfangsbestand 

XT = Bestand zum Zeitpunkt T 






Voß 

Kapitel 

6 • 

Biologie/Ökologie 

Seite 

Schule 

Abschnitt 

2 ‘ 

Wachstum 

21 5 



SCHRITT 


Programmbeschreibung 


Satz 1^-60 

Satz 

Satz 10^ 
Satz 110 
Satz 120 
Satz 130 
Satz 140 

Satz 145 


Satz 150 


Satz 160-180 


: Überschrift 

: Vorgabe der Input-Informationen, die 
aas Programm benötigt 

: Ausgabe einer Tabellenüberschrift 

: Vorgabe der ersten Perioae 

: Berechnung ues jeweiligen Bestandes 

: Ausgabe 

: Übergang zur nächsten Periode 

: Nach jeder zehnten Periode wird das 
Programm unterbrochen (also dann, wenn 
I durch 10 ohne Rest teilbar ist); 
Fortsetzung ist nur mit dem Kommando 
•CONT möglich, deshalb ein entsprechen¬ 
der Hinweis 

: Solange I kleiner gleich T ist, ist aas 
Programm fortzusetzen (Satz 120) 

: Beendigung des Programms, es sei denn^ 
es wird ein zusätzlicher Programralauf 
gewünscht (dann nach Löschen des Bild¬ 
schirms zurück zu Satz 70) 
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SCHRITT 


Ergebnisse 


Geben wir z.B, als Anfangsbestand den Wert 50^ ein, 
als Wachstumsrate den Wert 4 (%) und als Zeitdauer 
den Wert 8 (z.B. Jahre), so erzeugt das Programm die 


folgende 

Ausgabe : 


NACH ... 

JAHREN 

BESTAND 

1 


52gi 

2 


54<zS.8 

3 


562.43 

4 


584.93 

5 


6(^8.33 

6 


632.66 

7 


657.97 

8 


684.28 

NOCHMAL 

(J/N) ? 
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Gebremstes Wachstum 



SCHRITT 


Vorstellung des 
Problems 


Exponentielles Wachstum, wie es im vorangegan¬ 
genen Abschnitt vorgestellt wurde, gibt es in der Reali¬ 
tät praktisch nicht oder nur in sehr beschränkten Zeit¬ 
abschnitten. Es muß vielmehr mit hemmenden Effekten ge¬ 
rechnet werden, die in der Regel um so stärker werden, 
je größer die Werte der interessierenden Variablen schon 
geworden sind. 

Man denke beispielsweise daran, daß eine exponentiell 
wachsende Bevölkerung sehr rasch an Ernährungsgrenzen 
stößt, die dem weiteren Wachstum immer größere Hemmnis¬ 
se auferlegen. 

Eine solcherart "gedämpfte" Entwicklung soll im folgen¬ 
den BASIC-Programm simuliert werden. 
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SCHRITT 


Problemanalyse 


Die Problemanalyse führt hier zu einem ähnlichen Lö¬ 
sungsweg wie im vorangegangenen Abschnitt : 

Zunächst gilt auch hier, daß Ausgangswerte benötigt 


werden : 



= Ausgangsbestand 

R0 

= Jährliche Zunahmerate (in %) zu Beginn 

des Entwicklungsprozesses 


Im Gegensatz zum Beispiel zuvor gehen wir jetzt aber 
davon aus, daß die jährliche Zunahmerate nicht kon¬ 
stant bleibt, sondern um so kleiner wird, je größer 
die Population schon geworden ist. 

Da die Population im Zeitablauf wächst, können wir in 
einem sehr einfachen Denkmodell also einfach davon aus¬ 
gehen, daß die Zuwachsrate mit fortschreitender Zeit ab¬ 
sinkt. Beispielsweise können wir die Zuwachsrate bei 
Verdopplung der Zeit halbieren, bei Vervierfachung der 
Zeit auf ein Viertel zurückgehen lassen usw. 

Natürlich lassen sich auch andere mathematische Modelle 
vorstellen, um diesen Bremsvorgang zu simulieren 
darauf kommt es aber ja in diesem Zusammenhang nicht 
entscheidend an. 

Den so beschriebenen Rechenalgorithmus können wir ma¬ 
thematisch folgendermaßen fassen ; 
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X1 = X0 * (1 + R/I) 

Das heißt, der Bestand der folgenden Periode X1 berech¬ 
net sich aus dem der vorhergehenden Periode X0 so wie 
im letzten Beispiel; die Wachstumsrate aber wird durch 
den Laufindex I dividiert, so daß sie um so kleiner 
wird, je höher I wird, d.h. je-weiter die Zeit schon 
fortgeschritten ist. 



SCHRITT 


Flußdiagramm 
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SCHRITT : Programm 

10 REM BZ^T^BREMSTES WACHSTUM 
20 CLS 

30 PRINT"PRÜGRAMM ZUR TABELLARISCHEN DARSTELLUNG" 
|0„PRINT TAB(2)"EINES GEBREMSTEN WACHSTUMSPROZESSE 

50 PRINT:PRINT:PRINT TAB(9)"PROF.DR.W.VOSS, 1984" 
60 PRINT:PRINT:PRINT:PRINT:PRINT 
70 INPUT"ANFANGSBESTAND : ";XO 

80 PRINT: INPUT"W. RATE IM l.JAHR ("/.) : ";R 

85 PRINT:INPUT"WIEVIELE JAHRE : ";T 

90 CLS 

-P8lG?-^SlW9^*^ JAHREN BESTAND ZUWACHS (7.)" 


110 1=1 

120 X1=X0+X0*(R/I)/lOO 
140 Z»(X1-X0)/XO:Z=Z*100 

■■#####.## 

160 X0=X1:1=1+1:IF I<=T THEN 120 
180 PRINT: INPUT "NOCHMAL ? (J/N) " ; A-f 

190 IF A:f="J" THEN CLS; GOTO 70 
200 PRINT;PRINT"ENDE DER AUSGABE":END 


XI 



SCHRITT 


Variablenliste 


PRI 


= Antwortstring (Ja, Nein) 

I = Laufindex (Anzahl der Perioden) 

R = Wachstumsrate zu Beginn des Prozesses 

T = Zeitdauer des Prozesses 

= Anfangsbestand. 

X1 = Bestand nach einer Periode 

Z = Bestandsveränderung 
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SCHRITT 


Programmbeschreibung 


Satz 10-60 : Überschrift und Erläuterungen 

Satz : Anforderung der Ausgangsdaten und Lö¬ 

schen des Bildschirms 

Satz 100 ; Ausgabe einer Tabellenüberschrift 

Satz 110 : Vorgabe des Periodenzählers 

Satz 120-150 : Berechnung des Periiodenbestands, des 

Zuwachses und Ausgabe der entsprechenden 
Werte nach Rundung auf zwei Dezimalstel¬ 
len 


Satz 160 : Belegung von X0 mit XI und Fortführung 

der Berechnungen, solange I nach Erhö¬ 
hung um 1 kleiner als der vorgegebene 
Zeitwert T bleibt 


Satz 180-200 : Abfrage, ob noch eine Berechnung gewünscht 
(wenn ja, zurück nach 70) und Beendigung 
des Programms 
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SCHRITT 


Ergebnisse 


Geben wir zum Beispiel als Anfangsbestand den Wert 500 
ein, und als Zuwachsrate im ersten Jahr den Wert 4 % 
una schließlich die Angabe, daß der Prozeß 8 Jahre aau- 
ern soll, so erhalten wir : 

NACH ... JAHREN BESTAND ZUWACHS (%) 


520 


4 

2 


2 

3 

4 

5 

6 

7 

8 


530.4 

537.47 

542.84 

547.18 

550.83 

553.98 

556.75 


1 .33 


1 

.8 


.67 

.57 

.5 


NOCHMAL (J/N) ? 
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Umweltverschmutzung 



SCHRITT 


Vorstellung des 
Problems 


Wachsende Populationen hemmen in der Regel 
ihre weitere Entwicklung selbst, nämlich dadurch, daß 
sie ihre Lebensbedingungen in zunehmendem Maße bela¬ 
sten . 

Typisches Beispiel ist die zunehmende Umweltverschmut¬ 
zung während der Industrialisierungsphasen. 

Also auch hier tritt eine ''Wachstumsbremse" zutage - 
ähnlich wie im vorangegangenen Abschnitt - die das un¬ 
gebremste Wachstum, wie wir es in Abschnitt 6.2 kennen¬ 
gerlernt haben, modifiziert. 

Im Gegensatz aber nun zum Beispiel im vorangegangenen 
Abschnitt, wirkt diese "Bremse" nicht in Abhängigkeit 
von der Populationsgröße selbst, sondern indirekt in 
Abhängigkeit von einer Variablen, die ihrerseits pro¬ 
portional mit der Populationsgröße zusammenhängt. 
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SCHRITT 


Problemanalyse 


Die Population in der Periode 1 ergibt sich aud der 
der Periode 0 jetzt nicht mehr als 

XI = XflJ + * R/10<zi 

sondern als ; 

X1 = X0 + X0 * (R/10?S - P*B0) 

Dabei ist die Umweltbelastung zum Zeitpunkt die 
über einen geeigneten Parameter P (z.B. in der Größen¬ 
ordnung P = ^.^1) die Populationszuwächse bremst. 

Natürlich brauchen wir jetzt aber auch eine funktionale 
Beziehung, welche die Größe Bl (Umweltbelastung in der 
Periode 1) in Abhängigkeit von B0 und X^ erklären kann. 

Als Beispiel einer solchen Beziehung mag gelten : 

= B<^ + A * X(^ 

Von einer Belastungsgröße von z.B. B^ = ^ ausgehend, 
wächst die Belastung in Abhängigkeit von der erreichten 
Populationsgröße nach Maßgabe eines geeignet festzu¬ 
setzenden Parameters A (z.B. A = 0.^15). 

Somit gilt also der folgende Algorithmus ; 

(1) Bl = B^ + A*X0 

(2) XI = X^zi + X0 * (R/10<zS - P*B1) 
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SCHRITT 


Flußdiagramm 
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SCHRITT 


Programm 


10 REM B3-UMWELT 
20 CLS 

30 PRINT"PROGRAMM ZUR TABELLARISCHEN DARSTELLUNG" 

40 PRINT TAB(2)"EINES WACHSTUMSPROZESSES, DER DURC 
H" 

59 PRINT TAB(2)"SEINE EIGENE DYNAMIK GEBREMST WIRD 
^|^)^PR INT: PR I NT: PR INT: PR INT TAB (9) "PROF. DR. W. OOSS, 
70 PRINT:PRINT:PRINT;PRINT 

80 PRINT"DIESES PROGRAMM BENOETIGT DIE FOLGENDEN" 
90 PRINT"AUSGANGSINFORMAT IONEN : ":PRINT 
100 PRINT:INPUT"AUSGANGSBESTAND : " ; XO 

105 PRINT:INPUT"WIEVIELE JAHRE : ";T 

110 PRINT: INPUT "JAEHRL. WACHSTUMSRATE C/.) : ";R 

120 PRINT:INPUT"FAKTOR UMWELTBELASTUNG : ";P 

130 CLS 

140^P^I^^^Z^IT BESTAND ZUWACHS C/.) BELASTUNG" 

150 1=1:A=0.015:B0=0 

160 B1=B0+A*X0 

170 X1=X0+X0*(R/100-P*B0) 

THEN PR INT "POPULATION IST VERNICHTET" 

180 Z=(X1-X0)/XO:Z=Z*100 

n PRINT TAB(2)I:TAB(7) USING "#####.##";X1;:PRIN 
AB(17) USING "*###.##";Z; 

195 PRINT TAB(29) USING "#####.##";Bl 

200 1=1+1:IF I<=T THEN B0=B1:X0=X1:GOTO 160 

210 PRINT:PRINT:INPUT"NOCHMAL ? (J/N) " ; A^ 

220 IF A:$:="J" THEN CLS: GOTO 80 

230 PRINT:PRINT"ENDE DER AUSGABE":END 
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SCHRITT 


Variablenliste 


A = Faktor populationsbedingte Umweltbelastung 
= Stringvariable (Ja, Nein) 

= Umweltbelastung Anfang 
B1 = Umweltbelastung nächste Periode 

I = Laufindex 

P = Faktor Umweltbelastung 

R = Jährliche Wachstumsrate 

T = Zeit 

= Population Anfang 
XI = Population nächste Periode 
Z = Populationszuwachs. 



SCHRITT 


Programmbeschreibung 


Satz 10-70 : Überschrift und Erläuterungen 

Satz 80-120 : Anforderung der Inputinformationen 

Satz 130-140 : Löschen des Bildschirms und Ausgabe einer 
Tabellenüberschrift 

Satz 150 : Vorgabe weiterer Ausgangsparameter 

Satz 160-170 : Berechnungen für die folgende Periode 


Satz 175 : Wenn die neu berechnete Population klei¬ 

ner oder gleich null wird, ist eine 
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Satz 180 
Satz 190-195 
Satz 200 


3a.tz 210-230 


entsprechende Meldung auszugeben und 
Sprung zum Satz 210 

Berechnung von Z 

Ausgabe der Periodenergebnisse 

Erhöhung des Laufindex I 

solange I kleiner als T bleibt, wird 
X0 mit XI und B0 mit Bl belegt und das 
Programm kehrt zurück zum Satz 160 

Abfrage, ob eine weitere Berechnung ge¬ 
wünscht wird (wenn ja. Löschen des 
Bildschirms und zurück zu Satz 80) und 
Beendigung des Programms 
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7 .) SCHRITT 


Ergebnisse 


Geben wir als Ausgangsbestand z.B. den Wert 1^0^, als 
Zeithorizont 8 Jahre, als jährliche Wachstumsrate 5 % 
und als Faktor der Umweltbelastung z.B. den Wert 0.^1 
ein, so erhalten wir die folgenden Angaben : 


ZEIT 

BESTAND 

ZUWACHS % 

BELASTU^ 

1 

1(!S5«5 

5 

15 

2 

945 

-10 

30.75 

3 

7izS1 .66 

-25.75 

44.93 

4 

421.52 

-39.93 

55.45 

5 

208.87 

-50.45 

61 .77 

6 

90.29 

-56.77 

64.91 

7 

36.20 

-59.9 

66.26 

8 

14.02 

- 61.26 

66 .Ö 0 

NOCHMAL 

(J/N) 

? 
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Kapitel 

7 : Erdkunde/Geschichte 



7.1 

I Vorbemerkung 


Es können in diesem Kapitel ähnliche Programme 
erstellt werden wie im Kapitel "Sprachen", also vor al¬ 
lem Test- und Abfrageprogramme. Auch hier werden wir uns 
dabei auf exemplarische Datenbestände beschränken, d.h. 
es wird nur gezeigt, wie die Programme aufgebaut werden 
müssen und wie sie dann funktionieren. 

Sollen sie praktisch genutzt werden, müssen erst, wie 
unschwer zu sehen ist, die kompletten Datenbestänüe 
erzeugt und eingegeben werden. Dazu müssen die DATA- 
Statements ergänzt und die jeweilige Vorgabe von N 
entsprechend geändert werden. 
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Historische Jahreszahlen 



SCHRITT 


Vorstellung des 
Problems 


Es soll ein Programm vorgestellt werden, wel¬ 
ches dazu benutzt werden kann, das Erlernen historischer 
Jahreszahlen zu erleichtern und die erlernten Daten zu 
trainieren. 

Zu diesem Zweck stellt der Rechner dem Benutzer histo¬ 
rische Ereignisse vor und verlangt von ihm, daß er die 
korrekte Jahreszahl dieses geschichtlichen Ereignisses 
angibt. Es bleibt dabei dem Benutzer überlassen zu ent¬ 
scheiden, wieviele Fragen er sich pro Testserie vom 
Rechner stellen lassen möchte. 

Gibt der Benutzer aie korrekte Antwort, so reagiert der 
Rechner mit Lob; erhält er hingegen keine korrekte Ant¬ 
wort, so soll er den Benutzer fragen, ob dieser noch 
einen Versuch wagen möchte. Wird dies abgelehnt, soll 
das Programm dafür sorgen, daß die korrekte Antwort 
auf dem Bildschirm erscheint. 











Voß 

Kapitel 7 ; Erdkunde/Geschichte 

Seite 

Schule 

Abschnitt 2 : Jahreszahlen 

233 



SCHRITT 


Problemanalyse 


Die Vorstellung des Problems hat schon hinreichend ver¬ 
deutlicht, wie bei diesem Programm im einzelnen vorzu¬ 
gehen ist : 

Wir benötigen einen Informationseingabeteil, der Benut¬ 
zer muß gefragt werden, wieviele Abfragen er über sich 
ergehen lassen möchte und das Programm muß die jeweils 
gegebenen Antworten prüfen. Desweiteren tauchen keine 
besonderen Schwierigkeiten auf. 
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SCHRITT 


Flußdiagramm 
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SCHRITT : 


10 REM El-JAHRESZAHLEN 
20 CLS 


Programm 


30 PRINT"PROGRAMM ZUM ABFRAGEN HISTORISCHER DATEN" 
40 PR INT:PR INT:PR INT TAB(9)"PROF.DR.W.VOSS, 1984" 
50 PRINT:PR INT:PRINT:PR I NT 

60 PRINT"DIESES PROGRAMM BEZIEHT SICH NUR AUF 10" 
70 PRINT"AUSGEWAEHLTE HISTORISCHE DATEN (SIEHE" 

80 PRINT TAB(5)"DATA-STATEMENTS IN 500 FF.).":PRIN 


90 PR INT"SOLLEN MEHR DATEN VERWENDET WERDEN, SO" 
100 PRINT"MUESSEN DIE DATA ERGAENZT UND N IN SATZ" 
110 PRINT TAB(7)"150 VERAENDERT WERDEN." 

120 LOCATE 5,23 

130 PRINT"BITTE EINE TASTE DRUECKEN !" 

140 A^=INKEYi:: IF " THEN 140 

150 N=10 

155 DIM J.t (N) ,S$(N) 

160 CLS 

170 FOR 1 = 1 TO N:READ J-J (I ) , Sf ( I > : NE X T I 

180 PRINT"WIEVIELE ABFRAGEN WERDEN GEWUENSCHT ?" 

190 PRINT:INPUT"BITTE ZAHL ANGEBEN : ";Z 

200 FOR 1=1 TO Z 

202 R=INT(RND(1)*N+1) 

205 CLS 

210 PRINT:PRINT"WANN WAR : ":PRINT 

230 PRINT SJ:(R) PRINT 

240 PRINT:PRINT" IM JAHR : ";: INPUT l<^ 

2pgi|I^_Kg|^^^m THEN PR INT: PR INT TAB(9)"P R I M A" 

PR INT: PR INT "DAS WAR LEIDER NICHT RICHTIG ! " : PR 


^70^PRINT:PRINT"N0CH EIN VERSUCH ? ";:INPUT" (J/N) 
280 IF A^:="J" THEN 205 

2^g^gRINT:PRINT"DIE RICHTIGE JAHRESZAHL LAUTET : " 

300 FOR II = 1 TO 2000:NEXT II: NEXT I 

INT: PR INT: PR INT "NOCH EIN TEST ?";: INPUT" (J/ 
N) ";A4: 

320 IF A:r="J" THEN CLS: GOTO 180 
330 PRINT:PRINT"ENDE":END 

500 DATA 1939,BEGINN DES ZWEITEN WELTKRIEGS 

510 DATA 800,KAISERKR0ENUNG VON KARL DEM GROSSEN 

p^O^DATA 1949,GRUENDUNG DER BUNDESREPUBLIK DEUTSCH 

530 DATA 9,SCHLACHT IM TEUTOBURGER WALD 
540 DATA 1832,HAMBACHER FEST 
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550 DATA 1871,GRUENDUNG DES DEUTSCHEN KAISERREICHS 
560 DATA 1890,ERFINDUNG DER LOCHKARTE 
570 DATA 1812,NAPOLEON VOR MOSKAU 
580 DATA 1763,FRIEDE VON HUBERTUSBURG 
590 DATA 1495,REICHSTAG VON WORMS 

SCHRITT : Variablenliste 

= Stringvariable für Antworten 
I = LaufIndex 
J$ = Jahreszahlen 
N = Anzahl der Datensätze 
R = Zufallszahl 
3$ = Historische Sachverhalte 

Z = Anzahl der Tests 




SCHRITT 


progranimbeschreibung 


Satz 1^z5-120 


: Überschrift und Erläuterungen 


Satz 130-140 : Warten 

Satz 150-170 ; Vorgabe der Anzahl der Datensätze, Di¬ 

mensionieren, Löschen des Bildschirms 
und Einlesen der Daten 


Satz 180-190 : Anforderung der Zahl der Tests 

Satz 200-300 : Tests : 

Satz 202-240 : Zufallsauswahl eines hi¬ 
storischen Ereignisses und Anforderung 
der Jahreszahl als Antwort des Benutzers 

Satz 250 : Falls korrekt, Meldung und 
weiter bei 300 
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Satz 260-280 : Falls nicht korrekt, Mel¬ 
dung und Frage, ob noch ein Versuch 
(wenn ja, zurück nach 205) 

Satz 290 : Wenn nein, korrekte Ausgabe 

Satz 300 : Warteschleife und dann zurück 
nach Satz 200 

Satz 310-330 : Frage, ob noch ein Testlauf gewünscht; 

wenn ja, zurück zu Satz 180 nach Löschen 
des Bildschirms 

wenn nein, Ende des Programms 
Satz 500-590 : Daten 



SCHRITT 


Ergebnisse 


Die Ergebnisse brauchen hier nicht vorgestellt zu wer¬ 
den. Am sinnvollsten ist es, wenn der Leser unter Be¬ 
achtung der Inhalte der DATA-Statements das Programm 
einfach ausprobiert und es dann gemäß seinen eigenen 
Wünschen erweitert. 
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Die Hauptstädte der Länder 



SCHRITT 


. Vorstellung des 
Problems 


Auch das Programm, das in diesem Abschnitt 
vorgestellt werden soll, ist ein sog. Trainingsprogramm. 
Der Benutzer soll auf die Fragen des Rechners Antwort 
geoen. Gibt der Rechner zufällig ausgewählte Bundeslän¬ 
der vor, soll der Benutzer die Hauptstädte dieser Län¬ 
der eingeben; gibt der Rechner hingegen Hauptstädte vor, 
soll der Benutzer die dazugehörigen Bundesländer nennen. 

Insoweit bieten sich hier also keine neuen Probleme, 
so daß wir uns hier sehr kurz fassen können. Auch die¬ 
ses Programm hat also eher exemplarischen Charakter ; 

Ohne Schwierigkeiten kann der Benutzer andere Sachver¬ 
halte in den DATA-Statements dieses Programias erfasssen 
und gelangt auf diese Weise zu einem generell einsetz- 
baren Abfrageprogramm, das für die verschiedensten 
Schulfächer verwendet werden könnte. 
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SCHRITT 


Problemanalyse 


Es wurae schon erwähnt, daß hier keine neuen Probleme 
auftauchen, so daß dieser Schritt entsprechend kurz 
gehalten werden kann. Entsprechende Fragestellungen 
wurüen in vorangegangenen Beispielen schon hinreichend 
diskutiert. 



SCHRITT 


Flußdiagramm 
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SCHRITT 


Prograrmn 


10 REM E2-LAENDER 
20 CLS 

30 PRINT"PROGRAMM ZUR LERNKÜNTRÜLLE IM ERDKUNDE-" 
40 PRINT TAB(14)"UNTERRICHT." 

50 PRINT:PRINT:PRINT TAB(9)"PRÜF.DR.W.VOSS, 1984" 
60 PRINT:PRINT:PRINT:PRINT 

70 PRINT"DIESES PROGRAMM FORDERT NACH ANGABE DER" 
80 PRINT"DEUTSCHEN BUNDESLAENDER DEREN HAUPT-" 

90 PRINT"STAEDTE AN UND UMGEKEHRT.":PRINT:PRINT 
100 PRINT"BEI ANDEREN VORGABEN VON DATEN IN DEN" 
110 PRINT"STATEMENTS 500 FF.UND AENDERUNG VON N" 
120 PRINT"IN SATZ 160 KANN DAS PROGRAMM AUCH FUER" 
130 PRINT"ANDERE ZWECKE VERWENDET WERDEN." 

140 LOCATE 5,23:PRINT"BITTE EINE TASTE DRUECKEN !" 
150 A:>=INKEY«:: IF A^:="" THEN 150 
160 N=ll 

170 DIM L:|:(N) ,S^:(N) 

180 FOR 1 = 1 TO N:READ (I) , S^ (I) : NEXT I 
190 CLS 

200 PRINT"SOLLEN LAENDER ODER HAUPTSTAEDTE VORGE-" 
210 INPUT"GEBEN WERDEN (L/S) ";A^ 

215 C:f="HAUPTSTADT" 

220 IF A^="S" THEN C^="LAND":GOTO 250 
230 GOSUB 1000:REM TEST 
240 GOTO 270 

^5y FOR 1 = 1 TO N:H^=L4:<I) :L^(I)=S<:(I) :S:$(I>=H^:NEX 
260 GOSUB 1000:REM TEST 

270 PR INT: PR INT: INPUT "NOCHMAL ? (J/N> " ; A4: 

280 IF A:$="J" THEN CLS: RESTORE: GOTO 180 
290 PRINT:PRINT"ENDE":END 
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^ G-HÜLSTEIN , KI EL , HAMBURG, HAMBURG , B 

510 DATA BERLIN,BERLIN,NIEDERSACHSEN,HANNOVER 
ÜSaBeN^ NÜRDRHEIN-WESTFALEN,DUESSELDÜRF,HESSEN,WI 


^N ^bB9J^N^’H6^, MAINZ , SAARLAND, SAARBRUECK 

540 DATA BADEN-WUERTTEMBERG,STUTTGART 
1000 REM UP TEST 
1010 CLS 

1020 PRINT:INPUT"WIEVIELE ABFRAGEN : ";Z 

1030 FÜR 1=1 Tü Z 
1040 R=INT(RND(1)*N+1) 




(R) :PRINT:PRINT:PRINT C^; 


TAB(10)"K ü R R 


1070 PRINT:PRINT TAB(10)"FEHLER !":PRINT 
1080 PRINT:PRINT"DIE RICHTIGE ANTWORT LAUTET : 
1090 PRINT; PRINT TAB (10) S:$ (R) : PRINT 
1100 NEXT I 
1110 RETURN 
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SCHRITT 


Variablenliste 


= Stringvariable 

C$ = Hilfsvariable, die,je nach Auswahl,mit "Stadt" 
oder "Land" belegt wird 
I = Laufindex 
LJ> = Länder 

N = Anzahl der Datensätze 
S$ = Städte 



SCHRITT 


Programmbeschreibung 


Satz 10-130 
Satz 140-150 
Satz 160-180 


: Überschrift und Erläuterungen 
: Warten 

: Einlesen des gesamten Datenbestands 


Satz 190-210 : Abfrage, ob Länder oder Hauptstädte 

vorgegeben werden sollen 

Satz 220 : werden Städte gewählt, so wird die 

Hilfsvariable C$ mit "Land" belegt 
und es erfolgt ein Sprung nach 250 


Satz 230 : Sprung ins Unterprogramm 1000, in 

dem der eigentliche Abfragetest durch¬ 
geführt wird 
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Satz 240 


: Sprung zum Satz 270. 


Satz 250 : Austausch von Ländern und Städten, da¬ 

mit bei anderer Wahl in 190-210 trotz¬ 
dem wieder das gleiche Unterprogramm 
verwendet werden kann 


Satz 260 


: Wie Satz 230 


Satz 270-290 : Abfrage, ob noch eine weitere Test¬ 

serie gewünscht wird (wenn ja. Löschen 
des Bildschirms und zurück zu Satz 
180, nachdem der Datenbestand restau¬ 
riert wurde - dies ist notwendig, 
um den eventuellen Tausch in 250 wie¬ 
der rückgängig zu machen, um also wie¬ 
der die Ausgangsbedingungen herzustel¬ 
len) ; andernfalls Ende des Programms 


Satz 500-540 : Ausgangsdaten 


Satz 1000-1110 : Unterprogramm Test : 

Programm zur Durchführung der gewünsch- 
te’n Abfragen; die Einzelheiten ent¬ 
sprechen im Prinzip denen in Abschnitt 
7.2, so daß wir hier auf eine detail¬ 
liertere Beschreibung dieses Unterpro¬ 
gramms verzichten können 











voß 

Kapitel 7 : Erdkunde/Geschichte 

Seite 

Schule 

Abschnitt 4 : Bevölkerung 

245 



Die Bevölkerungsentwicklung in verschiedenen 


Nationen 



SCHRITT 


Vorstellung des 
Problems 


Es soll in diesem Abschnitt ein Programm vor¬ 
gestellt werden, welches für verschiedene Länder die¬ 
ser Erde die Bevölkerungsentwicklung bis zum Jahre 
prognostiziert. 

Als zu betrachtende Länder bzw. Ländergruppen haben 
wir ausgewählt : 

Welt (als alle Länder umfassend) 

Industrieländer 

Entwicklungsländer 

VR China 

Indien 

Japan 

USA 

UdSSR 

Bundesrepublik Deutschland 
DDR. 
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SCHRITT 


Problemanalyse 


Die geplanten Bevölkerungsprognosen machen es erfor¬ 
derlich, daß man sich für eine bestimmte Prognosemetho¬ 
de entscheidet. 

Es gibt eine große Zahl verschiedener Methoden, die iin 
einzelnen nicht hier uiskutiert .werden können. 

Wir haben für das folgende Programm die Werte übernomraen 
die sich bei den Modellprognosen ergeben haben, wie sie 
in dem Bericht GLOBAL (Washington 1980) veröffent¬ 

licht wurden. 

Aus diesen Daten berechnen wir zusätzlich die jahres¬ 
durchschnittlichen Wachstumsraten, um damit durch das 
Programm eine zusätzliche Information bereitstellen zu 
lassen. 

Unter programmlogischen Gesichtspunkten tauchen keine 
besonderen Schwierigkeiten auf, wenn man einmal davon 
absieht, daß wegen der Fülle der Ergebnisse an mehre¬ 
ren Stellen Programmunterbrechungen erforderlich sind. 
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SCHRITT 


Flußdiagraram 


Welt 

I-Länder 

E-Länder 


China 

Indien 

Japan 

USA 

UdSSR 


BRD 

DDR 
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SCHRITT 


Programm 


10 REM E4-BEV0ELKERUNG 
20 CLS 

30 PRINT"PRÜGRAMM ZUR TABELLARISCHEN DARSTELLUNG" 
40 PRINT"DER BEVÜELKERUNQSENTWICKLUNG OERSCHIE-" 

50 PRINT TAB(12)"DENER LAENDER." 

60 PRINT:PRINT:PRINT TAB(9)"PROF.DR.W.VOSS, 1984" 
70 DIM B(10,6) ,J (6) ,L:f (10) ,WR(10) 

80 FOR 1=1 TO 6:READ J(I):NEXT I 

10: FOR 1 = 1 TO 6: READ B(L,I):NEXT I:N 

100 FOR L=1 TO lOrREAD L$(L):NEXT L 
110 GOSUB 1000 : REM WARTEN 

140 PRINT"JAHR WELT I-LAENDER E-LAENDER" 
145 PRINT 

150 GOSUB 1200:REM STRICH 

160 PRINT 

170 FOR 1=1 TO 6 

ISO^PRI^J^j^ (I) ; TAB (8)B (1,1); TAB (18) B (2, I) ; TAB (32) B 
190 NEXT I 

195 GOSUB 1200:REM STRICH 

200 FOR L=1 TO 3 

210 X=B(L,1):Y=B(L,6) 

220 GOSUB 1100:REM WACHSTUMSRATE 
230 NEXT L 

\ gi f as " §9TpR'f Nt = PR I nt TAE (8) WR ( U , TAB (1 a) 

250 PRINT:GOSUB 1000:REM WARTEN 
260 CLS 

: INT"JAHR CHINA INDIEN JAPAN USA UDSSR" 



280 GOSUB 1200:REM STRICH 
290 FOR 1=1 TO 6 

300 PRINT J(I);TAB(8)B(4,I);TAB(14)B(5,I) :TAB(21)B 

( 6 , 1 ); ’ 

302 PRINT TAB(28)B(7,I);TAB(34)B(8,I):PRINT 

310 NEXT I 

320 GOSUB 1200:REM STRICH 

330 FOR L=4 TO 8 

340 X=B(L,1);Y=B(L,6) 

350 GOSUB 1100:REM WACHSTUMSRATE 

360 NEXT L 

370 PR INT: PR INT "7."; 

^ gAB(14)NR(5);TAB(21)WR(6),TA 

385 PRINT:PRINT 

390 GOSUB 1000:REM WARTEN 
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400 CLS 

410 PRINT"JAHR BUNDESREPUBLIK DDR":PRINT 

420 GQSUB 1200:REM STRICH 
430 FÜR 1=1 Tü 6 

440 PRINT J(I);TAB(12)B(9,I);TAB(24)B(10,I):PRINT 
450 NEXT I 

460 GOSUB 1200:REM STRICH 
470 FÜR L=9 TO 10 
480 X=B(L,1):Y=B(L,6) 

490 GOSUB 1100:REM WACHSTUMSRATE 
492 NEXT L 

494 PRINT'"/." ;: PRINT TAB (12) WR (9) ; TAB (24) WR (10) 

496 PRINT:PRINT"ENDE":END 

500 DATA 1975,1980,1985,1990,1995,2000 

505 REM WELT 

510 DATA 4134,4549,5013,5545,6143,6798 

515 REM INDUSTRIELAENDER 

520 DATA 1131,1174,1224,1276,1327,1377 

525 REM ENTWICKLUNGSLAENDER 

530 DATA 3003,3375,3789,4269,4816,5420 

535 REM VR CHINA 

540 DATA 978,1071,1151,1241,1348,1468 
545 REM INDIEN 

550 DATA 618,694,786,894,1013,1142 
555 REM JAPAN 

560 DATA 112,117,122,127,131,135 
565 REM USA 

570 DATA 214,222,235,248,260,270 
575 REM UDSSR 

580 DATA 254,268,282,296,310,323 
585 REM BRD 

590 DATA 61.8,61.7,60.0,58.6,57.8,56.2 
595 REM DDR 

600 DATA 16.8,16.7,16.6,16.4,16.2,16.1 

"WELT" , " I-LAENDER" , "E-LAENDER" , "CHINA" , " I 

620 DATA "JAPAN","USA","UDSSR","BRD","DDR" 

1000 REM UP WARTEN 

;\010 LOCATE 5,23:PRINT"BITTE EINE TASTE DRUECKEN ! 

1020 A4:=INKEY^: IF A4:="" THEN 1020 
1030 CLS 
1040 RETURN 






Voß 

Kapitel 

7 : 

Erdkunde/Geschichte 

Seite 

Schule 

Abschnitt 

4 ; 

Bevölkerung 

250 


1100 REM UP WACHSTUMSRATE 

1110 R=EXP(LDG(Y/X)/25)-l 

11 20 R=R* 1 00 : R= I NT( R* 1 00 + 0 . 5 )/ 1 00 

1130 WR(L)=R 

1140 RETURN 

1200 REM UP STRICH 

1210 FÜR I-l TO 40;PRINT"-“NEXT I 
1220 PRINT;RETURN 



SCHRITT 


Variablenliste 


B = Bevölkerung 

I = LaufIndex 

J = Jahr 

L = LaufIndex 

1j$ = Länder 

WR = Wachstumsrate 
X = Anfangswert (1975) 
Y = Endwert (2000) 



SCHRITT 


ProgrammbeSchreibung 


Satz 

10-60 

; Überschrift 


Satz 

70-100 

: Einlesen aller Ausgangsdaten 

Satz 

110 

; Sprung ins UP 1000 ; 

; Warten 

Satz 

140-145 

: Tabellenüberschrift 


Satz 

150 

; Sprung ins UP 1200 : 

: Unterstreichung 

Satz 

160-190 

: Ausgabe der Tabellenwerte 

Satz 

200-230 

: Bestimmung jahresdurchschnittlicher Zu¬ 
wachsraten für die Länder L=1#L=2 und 


L=3 
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Satz 210 : Übernahme des Anfangs- und 
des Endwertes 

Satz 220 : Sprung ins UP 1100 : Berech¬ 
nung der Wachstumsrate 

Satz 240 : Ausgabe der Wachstumsraten 

Satz 250 : Warten 

Satz 260-390 : Gleiche Vorgehensweise wie in Satz 140 

-250 beschrieben, nun aber für die zwei¬ 

te Tabelle 


Satz 400-494 

Satz 496 
Satz 500-620 


Entsprechend für die dritte Tabelle 
Beendigung des Programms 
Daten. 


Satz 1000-1040: Unterprogramm Warten 

Satz 1100-1140: Unterprogramm jahresdurchschnittliche 
Wachstumsrate (sie wird mit Hilfe der 
Logarithmenrechnung bestimmt, siehe 
Satz 1110) 


Satz 1200-1220: Unterprogramm Strich : 

Durch Aneinanderfügung von Minuszeichen 
wird auf dem Bildschirm ein Strich ge¬ 
zeichnet 
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SCHRITT 


Ergebnisse 


Dieses Programm erzeugt drei Tabellen nacheinander auf 
dem Bildschirm : 


1. Tabelle (Angaben in Millionen) 


JAHR 

WELT 

I-LAENDER 

E-LAENDER 

1975 

4134 

11 31 

3003 

1980 

4549 

1174 

3375 

1985 

5013 

1224 

3789 

1990 

5545 

1276 

4269 

1995 

6143 

1327 

4816 

2000 

6798 

1377 

5420 

RATE % 

2.01 

.79 

2.39 


BITTE EINE TASTE DRUECKEN ! 
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2. Tabelle (Angaben in Millionen) 


JAHR 

CHINA INDIEN 

JAPAN 

USA 

UDSSR 

1975 

978 

618 

112 

214 

254 

198(Ä 

1071 

694 

117 

222 

268 

1985 

1151 

786 

122 

235 

282 

199^25 

1241 

894 

127 

248 

296 

1995 

1348 

1?i13 

131 

260 

310 

20 ^^ 

1468 

1142 

135 

270 

323 

% 

1 .64 

2.49 

.75 

. 93 

.97 


BITTE 

EINE TASTE 

DRUECKEN ! 



3. Tabelle 

(Angaben in 

Millionen) 



JAHR 

BUNDESREPUBLIK 

DDR 



1975 


61 .8 

16.8 



1980 


61 .7 

16.7 



1985 


60 

16.6 



1990 


58.6 

16.4 



1995 


57.8 

16.2 



2000 


56.2 

16.1 



% 


-.38 

-.17 




ENDE 
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Kapitel 

8 : Die Wirtschaft | 


cd 

I Vorbemerkung j 


Das wesentliche Einsatzgebiet der Rechner 
war lange Zeit der wirtschaftliche und speziell der 
betriebliche und der kaufmännische Bereich. Man kann 
sagen, daß auch heute noch in diesen Bereichen Com¬ 
puter mit am häufigsten eingesetzt werden. 

Die Problemstellungen, um die es nämlich in diesen Be¬ 
reichen geht, eignen sich in der Regel sehr gut dazu, 
durch Rechner, heute auch durch Mikrocomputer, gelöst 
zu werden. 

Einige der grundlegenden wirtschaftlichen Probleme, zu¬ 
mindest so weit Rechenprobleme betroffen sind, werden 
in der Regel auch im schulischen Unterricht behandelt; 
beispielsweise in Handelsschulen natürlich in starkem 
Maße; aber auch in anderen Schultypen verschließt man 
nicht die Augen vor derartigen Fragestellungen, 
wie sie in diesem Kapitel behandelt werden sollen. 

Auch hier gilt aber, daß die ausgewählten Probleme 
nur stellvertretend stehen für viele anuere, die al¬ 
lein schon aus Platzgrünaen nicht aufgegriffen weraen. 
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Die Zinsrechnung 



SCHRITT 


Vorstellung des 
Problems 


Man stelle sich vor, jemand bringt einen be- 
stinunten Kapitalbetrag zu einer Bank, die dafür eine 
jährliche Zinszahlung vorsieht, deren Höhe alternativ 
festsetzbar ist. 

Nach jeaem Jahr vermehrt sich also der Kapitalbestand 
um einen bestimmten Prozentsatz, wobei zu beachten ist, 
daß ab dem zweiten Jahr auch die schon angefallenen 
Zinsen wiederum verzinst werden (Zinseszinsrechnung). 

Es soll nun ein Programm entwickelt werden, welches 
für einen beliebigen Ausgangsbetrag und für einen be¬ 
liebigen prozentualen Zinssatz ausrechnet, wie hoch 
der Endbetrag nach einer beliebigen Anzahl von Jahren 
sein wird. 

Ein derartiges Programm kann übrigens als Muster für 
die Simulation unterschiedlicher Wachstumsvorgänge 
benutzt werden. 
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SCHRITT 


Problemanalyse 


Nennen wir den Ausgangsbetrag K0, den Zinssatz P (%) 
und die Dauer der Bankeinlage T (Jahre). 

Dann gilt nach dem ersten Jahr, daß sich der Betrag XI 
ergibt zu : 

X1 = X0 + X0 *P/100 = X0 * (1 + P/1$öjzi) 

Im zweiten Jahr ergibt sich entsprechend zum Jahresende: 


X2 = XI •+ XI *P/1jziiz5 = XI * (1 + P/100) 

= X0 * (1 + P/100) * (1 + P/100) 

= X0 * (1 + P/100) ^ 

(Diesen Beziehungen sind wir übrigens schon in einem frü' 
heren Kapitel begegnet). 

Nach T Jahren ergibt sich demnach allgemein : 


XT = X0 * (1 + P/100)*^ 

Mit Hilfe dieser Beziehung kann nun ein geeignetes Pro¬ 
gramm aufgebaut werden. 
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SCHRITT 


Flußdiagramm 
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SCHRITT 


Programm 


10 REM W1-ZINSRECHNUNG 
20 CLS 

30 PR INT "PROGRAMM ZUR BERECHNUNG C^ON ZINSEN BEI" 

40 PRINT"JAEHRLICHER ZINSZAHLUNG UND GEGEBENEM" 

50 PRINT TAB(11)"AUSGANGSKAPI TAL." 

60 PRINT:PRINT:PRINT TAB(9)"PROF.DR.W.VOSS, 1984" 

70 PRINT;PRINT:PRINT:PRINT:PRINT 

80 INPUT"AUSGANGSKAPITAL : " ; KO 

90 PRINT: INPUT"JAEHRL. ZINSSATZ IN 7.: ";P 

100 PRINT:INPUT"ANZAHL DER JAHRE : ";T 

110 CLS 

120 PRINT"JAHR ZINS KAPITAL":PRINT:PRINT 

130 FOR 1=1 TO T 
150 Z=K0*P/100 
160 KT=KO+Z 



200 KO=KT 

210 IF I/10=INT(I/IO) THEN GOSUB 500:REM WARTEN 
220 NEXT I 

2.^0 P^^_jj|:PRINT:PRINT"NOCH EINE BERECHNUNG ? (J/N) 
240 IF A^:="J" THEN CLS: GOTO 80 

250 PRINT:PRINT:PRINT"ENDE DER BERECHNUNGEN":END 
500 REM UP WARTEN 
510 LOCATE 5,23 

520 PRINT"BITTE EINE TASTE DRUECKEN !" 

530 At=INKEY^: IF A4:="" THEN 530 

I^Cj^CLS: PR I NT "JAHR Z I NS KAP I TAL " : PR I NT: P 

550 RETURN 
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SCHRITT 


Variablenliste 


I = Laufindex 

K0 = Kapitalbestand am Anfang 

KT = Kapitalbestand in den späteren Perioden 

P = Jährlicher Zinssatz in Prozent 

T = Dauer des Sparprozesses in Jahren 

z = Zinsbetrag pro Jahr 



SCHRITT 


Programmbeschreibung 


Satz 1^-70 ; Überschrift 

Satz 80-1^0 : Anforderung der Ausgangsdaten 

Satz 110-12^ : Räumen des Bildschirms und Ausgabe einer 

Tabellenüberschrift 

Satz t3i6-22^ : Berechnungen : 

150 : Zinsbetrag 

160 : Kapitalbetrag in der nächsten Pe¬ 
riode 

190 : Ausgabe 

200 : Neubelegung von K0 mit KT, um in 
die nächste Periodenberechnung 
"einsteigen" zu können 

210 : Nach je 10 Perioden Programmunter- 
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brechung durch Sprung ins UP 

Satz 230-250 : Beendigung des Programms, es sei denn, 

es wird noch eine Berechnung gewünscht 
(dann zurück zu Satz 80) 

Satz 500-550 ; Unterprogramm zum Warten, wenn der Bild¬ 

schirm voll ist : 

510-520 : Hinweis 

530 : Warten, bis Tastendruck erfolgt 

540 : Löschen des Bildschirms und 

erneute Ausgabe der Tabellen¬ 
überschrift 
550 : Rücksprung 



SCHRITT 


Ergebnisse 


Geben wir als Anfangskapitalbestand DM 100 ein, als 
Zinssatz 5.5 % und als Zeitdauer 6 Jahre, dann ergibt 
sich : 


JAHR 

ZINS 

KAPITAL 

1 

5.50 

105.50 

2 

5.80 

111.30 

3 

6.12 

117.42 

4 

6.46 

123.88 

5 

6.81 

130.69 

6 

7.19 

137.88 


NOCH EINE BERECHNUNG (J/N) 
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Hypothekentilgung 


Vorstellung des 
Problems 


Unter den wirtschaftlichen Fragestellungen 
spielen diejenigen eine wichtige Rolle, die mit der 
Rückzahlung von Krediten oder Hypotheken zu tun haben. 
Geeignete Computerprogramme können die Rückzahlungs¬ 
dauer unter unterschiedlichen Ausgangsbedingungen, wie 
z.B. Höhe der Verbindlichkeit, Zinshöhe und Rückzah¬ 
lungsmodalitäten bestimmen. 

Es soll im folgenden ein Programm vorgestellt werden, 
welches für alternativ eingebbare Beträge die Tilgungs¬ 
dauer berechnet, wenn alternative Zinssätze vorgegeben 
werden, bzw. wenn unterschiedlich hohe Rückzahlungsraten 
vereinbart werden. 

Es ist leicht einzusehen, daß auch dieses Programm dann 
für generellere Fragestellungen dieser Art eingesetzt 
werden kann. 


0 


SCHRITT 
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SCHRITT 


Problemanalyse 


Zur Erläuterung der Problemlösung gehen wir von folgendem 
Beispiel aus ; 

Jemand nimmt eine Hypothek in der Höhe von S DM auf una 
vereinbart mit der hypothekgewährenden Bank eine monat¬ 
liche Rückzahlung von B DM. Von diesem Monatsbetrag B 
müssen zunächst die Schuldzinsen beglichen werden. Der 
Betrag, der nach Abzug der Zinsen übrig bleibt, kann 
zur Tilgung der Schuld, d.h. zu ihrer Verringerung ver¬ 
wendet werden - vorausgesetzt, es bleibt überhaupt ein 
positiver Rest übrig. 

Das zu entwickelnde Programm muß also Monat für Monat 
die anfallenden Zinsen berechnen und den Restbetrag, 
mit dem getilgt werden kann. Sollte dieser Restbetrag 
null oder negativ werden, so muß das Programm eine Mel¬ 
dung ausgeben, aus der erkenntlich wird, daß unter den 
gegebenen Bedingungen eine Verringerung der Schuld 
nicht möglich ist. 

Jahr für Jahr soll der aktuelle Schuldenstand ausgege¬ 
ben werden und wenn der Schuldenstand null oder nega¬ 
tiv gev/orden sein sollte, ist auszugeben, wie lange 
dieser Schuldentilgungsprozeß gedauert hat. 
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SCHRITT 


Flußäiagramm 
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SCHRITT 


Programm 


10 REM W2-HYPÜTHEK 
20 CLS 

30 PRINT"PROGRAMM ZUR BERECHNUNG DER DAUER EINER" 
40 PRINT TAB(10)"HYPOTHEKENTILGUNG. " 

50 PRINT:PRINT:PRINT TAB(9)"PROF.DR.W.VOSS, 1984" 
60 PRINT:PRINT:PRINT:PRINT 

70 PRINT:INPUT"MONATLICHE RATE : ";B 

80 PRINT: INPUT"ZINSSATZ IN ’/. : ";P 

90 PRINT:INPUT"AKTUELLE HYP.SCHULD : ";S 

100 CLS 

110 PRINT"JAHR SCHULD":PRINT 

120 FOR 1=1 TO 20:PRINT"-";:NEXT I:PRINT 

130 J=1 

140 M=1 

150 Z=((P/100)*S)/12:T=B-Z 

160 IF T<=0 THEN 250 

170 S=INT((S-T)*100+0.5)/100 

180 IF S<=0 THEN 300 

190 M=M+1:IF MC 13 THEN 150 

200 PRINT TAB(2)J;TAB( 8 )S 

210 J=J+1:60T0 140 

^BaSS^NiJ^^?" KONDITIONEN SIND DERART, 

260 PRINT"GETILGT WERDEN KANN." 

270 PRINT:PRINT"BITTE NEUE EINGABE":PRINT:GOTO 70 
300 PRINT:PRINT:PRINT"TILGUNGSDAUER : ":PRINT 
310 PRINT J-1;" JAHRE UND ";M-1;" MONATE." 

520 ^^plt^T^PR INT-.PRINT "NOCH EINE BERECHNUNG ? (J/N) 

330 IF A:f="J" THEN CLS: GOTO 70 

340 PRINT:PRINT:PRINT"ENDE DER BERECHNUNG":END 
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a 

^ SCHRITT : Variablenliste 


= 

stringvariable (Ja, Nein) 


B 

Monatlicher Rückzahlungsbetrag 


I 

LaufIndex 


J 

Jahreszähler 


M 

Monatszähler 


P 

Jährlicher Schuldzinssatz 


T 

Monatlicher Tilgungsbetrag 


2 

Monatlicher Zinsbetrag 




^SCHRITT : Prograininbeschreibung 


Satz 10-6^ 

: Überschrift 


Satz 7jz5-9?i 

: Vorgabe der Ausgangsinformationen 

Satz 

: Ausgabe einer Tabellenüberschrift 


Satz ^ 3 ^-^ 4 </> 

: Vorgabe eines Jahreszählers (J) und 



eines Monatszählers M 


Satz 150-170 

: Berechnung von monatlichem Zins, 

mo- 



natlicher Tilgung und neuer Schuld 

Satz 160 

: Wenn nicht getilgt werden kann, dann 



weiter bei 250 


Satz 180 

: Ist die Schuld getilgt, dann weiter 



bei 300 







Voß 


Schule 


Kapitel 

Abschnitt 


8 : Wirtschaft 
3 : Hypothek 


Seite 

267 


Satz 190 : Nächster Monat 

falls M kleiner als 13 ist, weiter bei 
Satz 150, andernfalls bei Satz 200 

Satz 200 : Ausgabe der aktuellen Schuld 

Satz 210 ; Nächstes Jahr und weiter bei Satz 140 

Satz 250-270 : Meldung bei unzulässigen Tilgungskon¬ 

ditionen und zurück zu Satz 70 

Satz 300-310 : Ausgabe der Tilgungsdauer in Jahren 

und Monaten (der Leser überlege, wa¬ 
rum dabei von J und von M jeweils der 
Wert 1 abgezogen werden muß) 

Satz 320-340 : Beendigung des Programms, es sei denn 

es wird eine erneute Berechnung ge¬ 
wünscht (dann nach Löschen des Bild¬ 
schirms zurück zum Satz 70) 






Voß 

Kapitel q : Wirtschaft 

Seite 

Schule 

Abschnitt 3 : Hypothek 

268 



SCHRITT 


Ergebnisse 


Geben wir bei den Anforderungen des Rechners beispiels¬ 
weise ein : 


MONATLICHE RATE 
ZINSSATZ IN % 
AKTUELLE HYP:SCHULD 


? 

? 6.5 


so erhalten wir während des Programmablaufs : 


JAHR SCHULD 


1 36496.86 

2 32759.fz39 

3 28771 .izS2 

4 24515.85 

5 199975.7 

6 15131.47 

7 9962.84 

8 4448.^56 


TILGUNGSDAUER : 

8 JAHRE UND 9 MONATE. 


NOCH EINE BERECHNUNG (J/N) ? 
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Arithmetisches Mittel 



SCHRITT 


Vorstellung des 
Problems 


Bei vielen wirtschaftlichen Fragestellungen 
ist es erforderlich, aus einer gegebenen Anzahl von 
Daten einen Durchschnitt auszurechnen, wobei üblicher¬ 
weise das arithmetische Mittel benutzt wird. 

Das folgende Programm soll für eine beliebige Anzahl 
von Daten nach Aufnahme.dieser Werte diese Rechenpro¬ 
zedur durchführen. 



SCHRITT 


Problemanalyse 


Bei der Problemanalyse treten keine besonderen Schwie¬ 
rigkeiten auf. 

Es muß zunächst dafür gesorgt werden, daß eine offene 
Anzahl von Daten eingegeben werden k^nn^ weshalb dem 
Rechner als erstes mitgeteilt werden muß, wieviele Wer¬ 
te es überhaupt sein werden. 

Bei der Eingabe der Werte können diese gleich aufad¬ 
diert werden (das arithmetische Mittel ist ja die Summe 
aller Werte geteilt durch ihre Anzahl). Die Division 
der entstehenden Summe aurch die Anzahl der Werte kann 
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dann als Ergebnis des Programms ausgegeben werden. 

Soll eine weitere Berechnung durchgeführt werden, ver¬ 
zweigt das Programm wieder an den Anfang, andernfalls 
ist es beendet. 
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SCHRITT 


Programm 


10 REM W3~MITTELWERT 
20 CLS 

30 PRINT"PROGRAMM ZUR BERECHNUNG EINES ARITHME-" 

40 PRINT TAB(11)"TISCHEN MITTELS." 

50 PRINT:PRINT:PRINT TAB(9)"PROF.DR.W.VOSS, 1984" 
60 PRINT:PRINT:PRINT:PRINT:PRINT 
70 INPUT"WIEVIELE WERTE : ";N 

80 CLS:S=0 
90 FOR 1=1 TO N 

100 PRINT I;". WERT : INPUT X 

110 S=S+X 
120 NEXT I 
130 AM=S/N 

150 PRINT:PRINT:PRINT"MITTELWERT = ";AM:PRINT 
^(jiO^PRINT:PRINT"NOCH EINE BERECHNUNG ? (J/N)"?:INP 

170 IF A:t="J" THEN CLS: GOTO 70 

180 PRINT:PRINT:PRINT"ENDE DER BERECHNUNGEN":END 



SCHRITT 


Variablenliste 


AM = Arithmetisches Mittel 
A$ = Stringvariable (Ja, Nein) 

I = Laufindex 

N = Anzahl der zu mittelnden Werte 
S = Summe der zu mittelnden Werte 

X = Wert, der in die Mittelwertberechnung eingeht 
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SCHRITT 


Programmbeschreibung 


Satz 10-6^ 
Satz 70 

Satz 80 

Satz 90-120 

Satz 130-150 

Satz 160-180 


: Überschrift 

: Angabe der Anzahl der zu mittelnden 
Werte 

: Löschen des Bildschirms und Vorgabe 
eines Summenfeldes 

; Eingabe eines Wertes nach dem anderen 
und Aufaddition aller Werte 

: Berechnung des arithmetischen Mittels 
und Ansgabe des Ergebnisses 

: Abschluß des Programms, es sei denn,es 
wird eine zusätzliche Berechnung ge¬ 
wünscht 


© 


SCHRITT 


Ergebnisse 


Geben wir beispielsweise an, daß 3 Werte vorliegen, so 
fordert das Programm genau drei Werte an. 

Sind dies z.B. die Werte 5,7 und 9, so erhalten wir ; 

MITTELWERT = 7 


NOCH EINE BERECHNUNG (J/N) ? 
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Häufigkeitsverteilung 



SCHRITT 


Vorstellung des 
Problems 


Bei der Auswertung größerer Datenbestände, für 
die sich ja der Einsatz von Computern ganz besonders 
gut eignet, besteht ein erster statistischer Auswer¬ 
tungsschritt häufig darin, eine sog. Häufigkeitsver¬ 
teilung zu erstellen. 

Es geht dabei datum, den Merkmalswerten (oder Merkmals¬ 
wertklassen) einer Untersuchungsvariablen die Häufig¬ 
keit ihres Auftretens graphisch oder tabellarisch zu¬ 
zuordnen. 

Das folgende Programm wird sowohl eine graphische wie 
auch eine tabellarische Häufigkeitsverteilung erstel¬ 
len, wobei uns als Datenmaterial die Altersverteilung 
in aer Bundesrepublik Deutschland im Jahre 1980 dient. 

Diese Altersverteilung der westdeutschen Bevölkerung 
stellt sich folgendermaßen dar : 
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Altersverteilung in der Bundesrepublik Deutschland 
1980 : 


Altersklasse 

Anteil in % 

unter 10 

10.3 

10 bis unter 20 

16.4 

20 bis unter 30 

14.6 

30 bis unter 40 

13.4 

40 bis unter 50 

14.2 

50 bis unter 60 

11.9 

60 bis unter 70 

8.9 

70 bis unter 80 

7.8 

80 bis unter 90 

2.4 

90 und mehr 

<t>-2 



SCHRITT 


Problemanalyse 


Bei der Problemanalyse gehen wir davon aus, daß uns 
die Daten wie in obiger Tabelle schon vorliegen, so 
daß diese Werte als Ausgangsmaterial dem zu entwickeln¬ 
den Programm eingegeben werden können. 

Sollte dies nicht der Fall sein, hätte man also bei¬ 
spielsweise individuelle Altersangaben in einer Frage¬ 
bogenaktion o.ä. erhoben, so müßte in einem ersten 
Programmteil erst dafür gesorgt werden, daß die indi¬ 
viduellen Angaben in die einzelnen, zunächst noch lee¬ 
ren, Altersklassen einsortiert werden (dies kann mit 
einer Folge von IF ... THEN-Statements geleistet wer- 
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den, bei der jeder einzelne Alterswert überprüft wird). 

Ist dies geschehen, dann könnten die Klassenbesetzungs¬ 
zahlen, die sich dann ergeben haben, durch Beziehung 
auf die Gesamtzahl der Angaben relativiert werden, so 
daß man zu Prozentanteilen gelangt, wie sie in obiger 
Tabelle schon vorgegeben sind. 

Dieser Programmteil könnte also schematisch folgender¬ 
maßen aussehen : 

INPUT "Nächstes Alter : ";X 
11^ IF X<1^ THEN Z1=Z1+ 1 : GOTO 1 
12^5 IF X THEN Z2 = Z2+ 1 : GOTO 1 


usw. 

2^0 R1 = (Z1/N) 

21^zS R2= (Z2/N) 

usw. 

Hier in diesem Beispiel geht es aber lediglich darum, 
die schon vorgegebenen Werte zunächst tabellarisch dar¬ 
zustellen, was natürlich überhaupt keine programmtech¬ 
nischen Schwierigkeiten verursacht. 

Etwas komplizierter ist hingegen die graphische Darstel¬ 
lung dieser Häufigkeitsverteilung, 


Um den Bildschirm für die graphische Darstellung opti¬ 
mal ausnutzen zu können, bestimmen wir zunächst aus dem 
vorliegenden Datenbestand die größte Häufigkeit und 
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rechnen alle anderen Häufigkeiten dann so um, daß 
die größte Häufigkeit in der graphischen Darstellung 
sich in der Vertikalen über 20 Bildschirmzeilen er¬ 
streckt. 

Die Häufigkeiten selbst stellen wir als senkrechte 
Stäbe dar. Um diese Stäbe maßstabgerecht zeichnen zu 
lassen, muß ihr jeweiliger Endpunkt bestimmt werden. 
Zusammen mit dem Anfangspunkt erhalten wir dann je¬ 
weils zwei Bildschirmpositionen und es geht dann nur 
noch darum, alle Positionen zwischen diesen beiden 
(unter Einschluß derselben) zu belegen. 
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SCHRITT 


Flußdiagramm 


r 


Ende ^ 
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10 

20 

30 

40 

50 

60 

70 

80 

90 

110 

120 

130 

140 

150 

160 

165 

170 

172 

174 

176 

180 

190 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 



SCHRITT 


Programm 


REM W5-VERTEILUNG 
CLS 

PRINT"PROGRAMM ZUR TABELLARISCHEN UND GRAPHI-" 
PRINT"SCHEN DARSTELLUNG EINER STATISTISCHEN" 
PRINT TAB(8)"HAEUFIGKEITSVERTEILUNG." 

PRINT:PRINT:PRINT TAB(9)"PROF,DR.W.VOSS, 1984" 

PRINT:PRINT:PRINT:PRINT:PRINT 

PRINT"DARGESTELLT WIRD DIE ALTERSVERTEILUNG" 
PRINT"IN DER BUNDESREPUBLIK DEUTSCHLAND 1980" 
GOSUB 1000:REM WARTEN 
DIM FdO) ,FT(10) 

FOR 1=1 TO 10:READ F(I):NEXT I 

PR INT "ALTER"; TAB (22) "ANTEIL IN 7.": PR INT 

FOR 1= 1 TO 35:PRINT"-";:NEXT I:PRINT 

FOR 1= 1 TO 10 

A=(1-1)*10:B=1*10 

PRINT USING "##";A; 

PRINT TAB<6)" BIS UNTER 
PRINT USING "###";B; 

PRINT TAB(24) USING "###.#";F(I) 

NEXT I 

GOSUB 1000:REM WARTEN 

REM NORMIERUNG 

FM=0 

FOR 1=1 TO 10:IF F(I)>FM THEN FM=F(I) 

NEXT I 

FOR 1=1 TO 10 
FT(I)=F(I)*(20/FM) 

NEXT I 

REM ZEICHNEN 
B=20 

FOR 1=1 TO 10 

A=21-FT(I):A=INT(A+O.5) 

FOR Z=A TO B 
LOCATE 4*I,Z 
PRINT CHR:$:(143) 

NEXT Z 
NEXT I 

PLOT 35,80:DRAW 630,80 
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PRINTsPRINT TAB(4) "ALTER IN KLASSEN ZU 10 JAHR 
430 PRINT"ENDE":END 

SOj:) DATA 10.3,16.4,14.6,13.4,14.2,11.9,8.9,7.8,2.4 
1000 REM UP WARTEN 

}^0i0 LOCATE 5,23: PR INT "BITTE EINE TASTE DRUECKEN ! 

1020 A^=INKEY:r: IF A^:="" THEN 1020 
1030 CLS 
1040 RETURN 


SCHRITT : Variablenliste 

A = Anfang der Altersklasse, 

später : Anfangsadresse des zu zeichnenden Stabes 
A$ = Stringvariable zur Antwortaufnahme ' 

B = Ende der Altersklasse 

später : Endadresse des zu zeichnenden Stabes; 

F = Häufigkeit 
FM = maximale Häufigkeit 
FT = transformierte Häufigkeit 
I = Laufindex 

Z = Laufindex (Bildschirmzeile) 




SCHRITT 


Programmbeschreibung 


Satz 10“ 90 

Satz 110 
Satz 120-130 


: Überschrift 

; Warten 

: Dimensionieren und Einlesen der Aus¬ 
gangsdaten 


Satz 140-150 


: Ausgabe der Tabellenüberschrift 


Satz 160-180 : Tabellenausgabe: 

165 : Bestimmung von Klassenanfangs¬ 
und Klassenendpunkt 
170-176: Ausgabe 
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Satz 190 
Satz 220-250 


Satz 260-280 


: Warten 

: Aufsuchen der größten Häufig¬ 
keit durch Vergleich aller Häufig¬ 
keiten mit der jeweils schon er¬ 
reichten größten Häufigkeit (beim 
Wert null beginnend) 

: Bestimmung transformierter Häufig¬ 
keit durch Ausrichten der Häufigkei¬ 
ten an der Maximalhäufigkeit 


Satz 290-370 


Satz 380 
Satz 390 
Satz 430 
Satz 500 


Zeichnen von 10 Stäben: 

300 : Stabende 

320 : Bestimmung des Stabanfangs ge¬ 
messen an der Bildschirmzei¬ 
leneinteilung 

330-360: Zeichnen des Stabes durch 
Zusammenfügen von kleinen 
Quadraten in Spalte 

Waagrechte Achse 

Beschriftung der waagrechten Achse 

Ende des Programms 

Daten 


Satz 1000-1040 : Unterprogramm Warten 
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SCHRITT 


Ergebnisse 


Die Ergebnisse dieses Programms sollen hier nicht vor¬ 
gestellt werden. Viel sinnvoller ist es, wenn der Le¬ 
ser das Programm in seinen Rechner eingibt, um dann im 
Vergleich der Bildschirmausgabe mit dem vorgestellten 
Programm nachzuvollziehen, was im einzelnen geschieht. 
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Die Wirtschaftskraft der Bundesländer 



SCHRITT 


Vorstellung des 
Problems 


Von ganz anderer Art wie die vorangegangenen 
Programmbeispiele ist das folgende Programm. Hier geht 
es nämlich wieder, wie schon in manchen Kapiteln zuvor, 
darum, ein "Informationsprogramm" zu erstellen. 

Es soll ein Programm entwickelt werden, welches für 
die Länder der Bundesrepublik Deutschland wichtige 
Wirtschaftsdaten auf Anforderung durch den Benutzer 
ausgibt. 

Die Daten, die für diese Informationsbereitstellung 
vorgegeben werden, sind die folgenden : 

1. Bevölkerungszahl (in Millionen) 

2. Fläche (in Quadratkilometer) 

3. Bruttosozialprodukt (in Mrd. DM) 

4. Anzahl der Erwerbstätigen (in Millionen) 

5. Anteil uer ausländischen Erwerbstätigen (in %) 

6. Steueraufkommen (in Mrd. DM) 

7. Schulden (in Mrd. DM) 

8. Anteil der industriellen Produktion (in %) 

Es versteht sich von selbst, daß bei Bedarf oder Interes 
se diese Liste verlängert werden könnte, oder daß an- 
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stelle der Bundesländer auch andere Sachverhalte (z.B. 
Nationen) betrachtet werden könnten.Natürlich müßte 
dann aber der Datenbestand entsprechend geändert wer¬ 
den . 



SCHRITT 


Problemanalyse 


Der Leser wird schon festgestellt haben, daß sich über 
die verschiedenen Kapitel hinweg bestimmte Problemtypen 
wiederholen oder in ähnlicher Form wiederkehren. So ist 
dies auch bei dieser Problemstellung : Sie bietet im 
Prinzip keine neuen Probleme, so daß die Analyse recht 
einfach ist : 

Es müssen zunächst alle relevanten Informationen einge¬ 
geben werden. Der Benutzer wird dann aufgefordert, an¬ 
zugeben, über welches Land er Informationen wünscht. 
Nach der daraufhin erforderlichen Eingabe, erfolgt die 
Ausgabe des Datensatzes für das gewünschte Bundesland. 
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SCHRITT 


Flußdiagramm 
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SCHRITT 


Programm 


10 REM W6-LAENDER 
20 CLS 

30 PRINT"PROGRAMM ZUR AUSGABE VON INFORMATIONEN" 

40 PRINT"UEBER DIE WIRTSCHAFTSKRAFT DER BUNDES-" 

50 PRINT TAB(16)"LAENDER," 

hO PRINT:PRINT:PRINT TAB(9)"PROF.DR.W.VOSS, 1984" 

70 PRINT:PRINT:PRINT:PRINT:PRINT 
110 DIM L^:(12) ,V(8,12) ,B^ (8) 

120 FOR 1 = 1 TO 12: READ L:^(I):NEXT I 
130 FOR 1=1 TO 8:READ B^(I):NEXT I 

140 FQR J=1 TO 8:FOR 1=1 TO 12:READ V(J,I);NEXT I: 
NEXT J 

150 GOSUB 1000:REM WARTEN 

200 PRINT"FUER WELCHES LAND WERDEN INFORMATIONEN" 
210 PRINT"GEWUENSCHT ? ":PRINT 
220 FOR 1=1 TO 12 

230 PRINT TAB(5) " ("; I; ") "; :PRINT TAB (13) Ltd) 

240 NEXT I 

250 PRINT:PRINT;INPUT"BITTE NUMMER ANGEBEN : ";Z 

260 CLS 

280 PRINT Lt(Z):PRINT:PRINT 
290 FOR J=1 TO 8 

300 PRINT Bt(J);TAB(29)": ";:PRINT V(J,Z) 

310 NEXT J 

320 GOSUB 1000:REM WARTEN 

J.30 PRINT"NOCH EIN ANDERES LAND ? (J/N) INPUT A 

340 IF At="J" THEN CLS:GOTO 200 

350 PRINT;PRINT"ENDE DER AUSGABE";END 

ggOEip^TQEg^f^H|_|^\yiG-HOLSTEIN" , "NIEDERSACHSEN" , "NOR 

502 DATA "HESSEN","RHEINLAND-PFALZ","SAARLAND" 

504 DATA "BADEN-WUERTTEMBERG","BAYERN","HAMBURG"," 
BREMEN "/'BERLIN" 

506 DATA "BUNDESREPUBLIK DEUTSCHLAND" 

<MILL.),FLAECHE (1000 QKM),S 

ARP'-- > . AUSLAENDERANTEIL < 

514 DATA SCHULDEN (MRD. DM) , ANTEIL INDUSTRIEPROD. C/. 

600 DATA 0,0,0,0,0,0,0,0,0,0 
602 DATA 0,0,0,0,0,0,0,0,0,0 
604 DATA 0,0,0,0,0,0,0,0,0,0 
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A$ 

I 

J 

V 

Z 


606 DATA' 0,0,0,0,0,0,0,0,0,0 
608 DATA 0,0,0,0,0,0,0,0,0,0 
610 DATA 0,0,0,0,0,0,0,0,0,0 
612 DATA 0,0,O,0,0,0,0,0,0,0 
614 DATA 0,0,0,0,0,0,0,0,0,0 
616 DATA 0,0,0,0,0,0,0,0,0,0 
618 DATA 0,0,0,0,0,0 
1000 REM UP WARTEN 

;,010 LÜCATE 5,23: PR INT "BITTE EINE TASTE DRUECKEN 


1020 A:r=INKEY:f: IF 
1030 CLS 
1040 RETURN 



SCHRITT 


AS="" THEN 1020 


Variablenliste 


Stringvariable 
Variabien-Bezeichnungen 
Laufindex (Länder) 

Laufindex (Variablen) 

Ländernamen 

Variablen 

Nummer des gewünschten Landes 

SCHRITT ; Programmbeschreibung 



Satz 1^-70 


: Überschrift 


Satz 11^ : Dimensionierungen 

Satz 120-140 ; Einlesen der Ausgangsdaten : 

120 : Ländernamen 

130 : Variablenbezeichnungen 

140 : Variablenwerte 


Satz 150 : Warten 

Satz 200-250 : Anforderung der Nummer desjenigen Landes, 
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über das Informationen gewünscht wer¬ 
den, nachdem eine Länderliste auf dem 
Bildschirm vorgegeben wurde 

: Löschen des Bildschirms und Ausgabe des 
Namens des gewünschten Landes 

: Ausgabe des Datensatzes für das ge¬ 
wünschte Land 

: Warten 

; Abfrage, ob noch eine weitere Ausgabe ge¬ 
wünscht wird (wenn ja. Löschen des 
Bildschirms und zurück zu Satz 200); 
wenn nein, Beendigung des Programms 

: Ländernamen in DATA-Statements 

: Variablenbezeichnungen in DATA-State- 
ments 

: Variablenwerte : 

Die Werte sind so anzugeben, daß für die 
erste variable alle Länderwerte, dann 
für die zweite Variable alle Länderwer¬ 
te ... usw. folgen (vergl. Satz 140) 

ACHTUNG : IM PROGRAMM SIND NUR NULLEN (vergl. nächster 
Arbeitsschritt 1) 

Satz 1000-1040 :Unterprogramm zum Warten. 


Satz 260-280 

Satz 290-310 

Satz 320 
Satz 330-350 

Satz 500-506 
Satz 510-514 

Satz 600-618 
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SCHRITT 


Ergebnisse 


Im Datenbestand des vorgestellten Programms finden sich 
nur Nullen, so daß bei einem Probelauf tatsächlich auch 
nur Nullwerte auf dem Bildschirm erscheinen können. 

Wenn ein "echter" Probelauf durchgeführt werden soll, 
dann müssen erst konkrete Daten eingegeben werden, die 
der Leser der folgenden Übersicht entnehmen kann ; 

Wirtschaftsdaten der Bundesländer (die Daten beziehen 
sich auf 198j6-1 982) : 

Land Bevölk. Fläche Sozial Erwerbs- 

(Mill.) (10^^ prod. tätige 

qkm) (Mrd.) (Mill.) 


Schleswig- 

Holstein 

2.6 

NiederSachsen 

7.3 

Nordrhein- 

Westfalen 

17.0 

Hessen 

5.6 

Rheinland-Pfalz 

3.6 

Baden-Württem¬ 

berg 

9.3 

Bayern 

1 1 .o 

Saarland 

1 .1 

Hamburg 

1 .6 

Bremen 

0.7 

Berlin 

1 .9 

BUND 

61.6 


16 

53 

1 .1 

48 

152 

3.2 

34 

4o6 

6.9 

21 

14o 

2.4 

2o 

81 

1 .6 

36 

234 

4.3 

71 

253 

5.1 

3 

24 

.4 

.7 

75 

.7 

. .4 

22 

.3 

.5 

53 

.8 

248 

1484 

26.8 
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Land 


Ausländer- Steuer¬ 
anteil aufkom¬ 

men (Mrd) 


Schul- Anteil In¬ 
den dustrie- 
(Mrd) Produktion 


Schleswig- 

Holstein 

2.6 

Niedersachsen 

3.3 

Nordrhein- 

Westfalen 

7.1 

Hessen 

7.6 

Rheinland-Pfalz 

3.6 

Baden-Württem¬ 

berg 

lo.l 

Bayern 

5.8 

Saarland 

5.7 

Hamburg 

8.4 

Bremen 

6.4 

Berlin 

10.7 

BUND 

6.7 


10 

8 

34 

31 

18 

41 

1o8 

32 

48 

34 

13 

45 

16 

9 

44 

57 

18 

52 

54 

14 

45 

4 

3 

51 

33 

8 

32 

6 

6 

34 

12 

7 

35 

365 

233 

45 
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Abschließend soll ein Kapitel angefügt werden, 
in dem weitere mathematische Probleme behandelt wer¬ 
den, und zwar solche, die einen etwas höheren Schwie¬ 
rigkeitsgrad aufweisen, als die bisher besprochenen 
Probleme. Damit soll der bereits fortgeschrittene 
Mikrocomputer-Benutzer erkennen, daß mit relativ 
einfachen Programmen auch schon komplexere Problem¬ 
stellungen in Angriff genommen werden können. 

Insoweit könnte dieses Schlußkapitel für den Anfänger 
eine leichte Überforderung darstellen (aber das ge¬ 
rade übt ja auch manchmal einen beträchtlichen Reiz 
aus) . 

Diese etwas komplizierteren Probleme sollen so pro¬ 
grammiert werden,' daß keine zusätzlichen BASIC-An¬ 
weisungen benötigt werden. Das bedeutet, daß die ent¬ 
stehenden Programme (wie auch schon die vorhergehen¬ 
den) nicht den Eleganzansprüchen geübter Programmie¬ 
rer entsprechen können. Darauf kommt es aber hier auch 
nicht an. 
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Im Gegensatz zu den früheren Kapiteln werden wir uns 
hier aber kürzer fassen, weil mehr als ein Dutzend 
zusätzlicher Probleme behandelt werden sollen: 

Nach einer kurzen Beschreibung der Problemstellung 
und einigen Anmerkungen zur Problemanalyse stellen 
wir sofort das Programm vor und schließen eine knap¬ 
pe Programmbeschreibung an. Insbesondere auf die 
Arbeitsschritte "Flußdiagramm" und "Ergebnisse" wird 
also im folgenden verzichtet; nicht nur aus Gründen 
der Platzersparnis, sondern auch, weil sich unter 
rein programmlogischen Gesichtspunkten eigentlich 
keine neuen Detailprobleme mehr stellen. 
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Problemstellung 

Das folgende Programm dient dazu, auf dem 
Bildschirm ein Liniengitter mit beliebigen Zeilen- 
und Spaltenabständen auszugeben. 

Die Überlegungen, die diesem einfachen Programm zu¬ 
grundeliegen, können so oder in ähnlicher Weise immer 
verwenaet werden, wenn beispielsweise umfangreichere 
Tabellenausgaben durch Längs- und Querstriche geglie¬ 
dert werden sollen. 


Problemanalyse 

Stichworte zur Problemanalyse sind hier fast entbehr¬ 
lich: Vorzugeben sind vom Benutzer Angaben zum Zeilen- 
und zum Spaltenabstand. Entsprechend dieser Angaben 
wird der Graphik-Cursor per PLOT-Anweisung positio¬ 
niert, um dann per DRAW-Anweisung eine gerade Linie 
zu ziehen. 
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Programm; 


10 REM ZI-GITTER 
20 CLS 

30 PRINT"PROGRAMM ZUM ZEICHNEN EINES GITTERS." 

40 PRINT:PRINT:PRINT TAB(9)"PRÜF.DR.W.VGSS, 1984" 
50 LOCATE 3,20:INPUT"SPALTENABSTAND : ";S 

60 LOCATE 3,22:INPUT"ZEILENABSTAND : ";Z 
70 CLS 

80 FOR 1=1 TO 639 STEP S 
90 PLOT I,399:DRAW I,1 
100 NEXT I 

110 FOR 1=1 TO 399 STEP Z 
120 PLOT 1,1:DRAW 639,1 
130 NEXT I 

140 LOCATE 18,24:PRINT"ENDE":END 


Variablenliste 


I = Laufindex 
S = Spaltenabstand 
Z = Zeilenabstand 
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Programmbeschreibung; 


Satz 10- 40 : Überschrift 

Satz 50- 60 : Eingabe von Spalten- und Zeilen¬ 

abstand 


Satz 70 
Satz 80-100 
Satz 110-130 
Satz 140 


: Löschen des Bildschirms 
: Zeichnen der senkrechten Striche 
: Zeichnen der waagrechten Striche 
; Beendigung des Programms 
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Die Gerade 


Problemstellung 

Das folgende Programm dient dazu, beliebige Geraden 
in ein Achsenkreuz einzuzeichnen, dessen Ursprung 
in der Bildschirmmitte (320,200) liegt. 


Problemanalyse 

Die Lage einer Geraden wird von zwei Parametern be¬ 
stimmt, dem Ordinatenabschnitt A und dem Tangens 
des Steigungswinkels B gemäß der folgenden Funktio¬ 
nalgleichung: 

= A + B ^ 


Da der Koordinatenursprung im Punkt (320,200) liegen 
soll, ergibt sich: 

= 200 + A + B ^ (X^-320) 
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Programm; 


10 REM Z2-GERADE 
20 CLS 

30 PRINT"PRÜGRAMM ZUM ZEICHNEN EINER GERADEN.*’ 

40 PRINT:PRINT:PRINT TAB(9)"PRÜF.DR.W.VOSS, 1984 
50 LÜCATE 3,20:INPUT"ORDINATENABSCHNITT A : ";A 
60 LÜCATE 3,22:INPUT"STEIGUNG B : ";B 

70 CLS 

80 PLOT 0,200:DRAW 639,200 
90 PLOT 320,399:DRAW 320,0 
100 FÜR X=0 TO 639 
110 Y=200+A+B*(X-320) 

120 IF Y<=0 OR Y>=399 THEN 140 
130 PLOT X,Y 
140 NEXT X 

150 LOCATE 18,24:PRINT"ENDE":END 


Variablenliste 


A = Ordinatenabschnitt 
B = Tangens des Steigungswinkels 
X = Werte auf der X-Achse 
Y = Funktionswerte 
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Programmbeschreibung: 

Satz 10- 40 
Satz 50- 60 
Satz 70 
Satz 80- 90 
Satz 100-140 

Satz 150 


: Überschrift 

: Eingabe der Geradenparameter 

; Löschen des Bildschirms 

: Zeichnen des Achsenkreuzes 

: Zeichnen der Gerade über üie 
gesamte Breite des Bildschirms 
(für unzulässige Y-Werte wird 
die Zeichenanweisung 130 über¬ 
sprungen) 

: Beendigung des Programms 
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Der Kreis 


Problemstellung 

Nach dem gleichen Muster wie im vorangegange¬ 
nen Abschnitt ein Programm zum Zeichnen einer Geraden 
entwickelt wurde, soll nun ein Prograimn zum Zeichnen be¬ 
liebiger Kreise vorgestellt werden. Dabei wiederholt 
sich nun vieles, so daß wir uns entsprechend kurz fassen 
können. 


Problemanalyse 


Wir stehen hier vor dem gleichen Problem wie im Abschnitt 
zuvor, mit dem Unterschied, daß wir nun von der Kreis¬ 
gleichung ausgehen müssen : 

Diese Kreisgleichung lautet allgemein : 

(x - a)^ + (y - b)^ = 

Dabei ist r der Radius des Kreises, x und y sind die 
Koordinaten der Kreislinie und a und b sind die Koor¬ 
dinaten des Kreismittelpunktes. 
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Löst man diese Beziehung nach y auf (Lösen einer qua¬ 
dratischen Gleichung), so erhält man die Gleichungen 
für den oberen und den unteren Halbkreis. 

Es gilt nämlich : 

(y - b)^ = - (x - a)^ = D 

y - b = iSQR(D) 

*yi/2 = b 1 SQR(D) 


Damit sind die Grundlagen für das folgende Programm 
klar : 

Es benötigt als Input-Informationen die Koordinaten des 
Kreismittelpunktes a und b (wir nennen sie im folgenden 
Programm T und Z) und den Radius r (in BASIC ; R). Dann 
können für alternative Werte von X die dazugehörigen 
Werte Y1 und Y2 gemäß der obigen Beziehung bestimmt wer¬ 
den und die Punkte X,Y1 und X,Y2 können gezeichnet wer¬ 
den. 

Es ist dabei zu beachten, daß sich X nur sinnvollerwei¬ 
se im Bereich von T-R bis T+R bewegen kann, weil außer¬ 
halb dieses Bereichs keine Y-Werte im reellen Bereich 
definiert sind (die Hilfsgröße D würde dort negativ 
und der Versuch, aus ihr die Wurzel zu ziehen, würde 
zu einer Fehlermeldung und zum Programmabbruch führen). 
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Programm: 


10 REM Z3-KREIS 


20 CLS 


30 PRINT"PROGRAMM ZUM ZEICHNEN EINES KREISES." 


40 PRINT:PRINT:PRINT:PRINT:PR INT 


50 PRINT"DIESES PROGRAMM BENOETIGT ALS INPUT-" 


60 PRINT"INFORMATIONEN SPALTE UND ZEILE DES " 


70 PRINT"KREISMITTELPUNKTES UND RADIUS DES KREI- 

■" 

80 PRINT"SES." 


90^PRINT:PRINT:PRINT:INPUT"MITTELPUNKT - SPALTE 


100 

PRINT:INPUT "MITTELPUNKT - ZEILE : ";Z 


1 10 

PRINT:PRINT:INPUT " RADIUS : "; 

R 

120 

CLS 


130 

PLÜT 0,0:DRAW 0,399 


140 

PLOT 0,0:DRAW 639,0 


150 

PLOT T,0:DRAW T,399 


160 

PLOT 0,Z:DRAW 639,Z 


170 

A=T-R:B=T+R 


180 

IF A<0 THEN A=0 


190 

IF B>639 THEN B=639 


200 

FÜR X-A Tü B 


210 

D«R*R-(X-T)-2 


220 

IF DOO THEN Y=Z:GGTÜ 250 


230 

Y= Z+SQR<D) 


240 

IF Y<0 OR Y>399 THEN 260 


250 

PLÜT X,Y 


260 

NEXT X 


270 

FOR X=B TO A STEP-1 


280 

D=R*R-(X-T)• 2 


290 

IF DOO THEN Y=Z:GOTO 320 


300 

Y=Z-SQR(D) 


310 

IF Y<0 OR Y>399 THEN 330 


320 

PLOT X,Y 


330 

NEXT X 


340 

LOCATE 18,24:PRINT"ENDE":END 
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Variablenliste 

A = linker Extrempunkt des Kreises 
B = rechter Extrempunkt des Kreises 
D = D = R^-(X-T)^ 

R = Radius 

T = Spalte des Kreismittelpunkts 
X = X-Koordinatenwerte 
Y = Y“Koordinatenwerte 
Z = Zeile des Kreismittelpunkts 

Programmbeschreibung 

Satz 10- 80 
Satz 90-120 
Satz 130-140 
Satz 150-160 
Satz 170-190 
Satz 200-260 
Satz 270-330 
Satz 340 


Überschrift und Erläuterungen 
Inputinformationen 
Achsenkreuz 
Hilfs-Achsenkreuz 

Festlegung des Wertebereichs für X 
Zeichnen eines Halbkreises 
Zeichnen des anderen Halbkreises 
Beendigung des Programms 
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Die Sinuslinie 


Problemstellung 


In einem letzten Beispiel hochauflösender 
Graphik wollen wir eine Sinusschwingung darstellen, 
der wir im Kapitel "Physik" schon einmal begegnet 
waren. Die Vorgehensweise ist die gleiche wie in den 
vorangegangenen beiden Abschnitten. 


Problemanalyse 


Die Problemanalyse ist hier einfach, weil keine neuen 
Probleme zu bewältigen sind. Wir haben lediglich da¬ 
rauf zu achten, daß die Periodizität der Sinusschwin¬ 
gung (Frequenz) und ihre Amplitude (Ausschlag) so 
eingerichtet werden, daß die auf dem Bildschirm auszu¬ 
gebende Schwingung optisch gut aussieht, d.h. den zur 
Verfügung stehenden Raum in geschickter Weise aus¬ 
nutzt. 
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Programm; 


10 REM Z4-SINUS 
20 CLS 

30 PRINT"PROGRAMM ZUM ZEICHNEN EINER SINUSLINIE." 

40 PRINT:PRINT:PRINT:PRINT TAB(9)"PRÜF.DR.W.VOSS, 
1984" 

50 PRINT:PRINT:PRINT:PRINT 

60 PRINT"DAS PROGRAMM BENOETIGT DIE FOLGENDEN" 

70 PRINT"INPUTINFORMATIONEN PRINT;PRINT 

80 PRINT:INPUT"FREQUENZ (IN EINHEITEN VON PI) ";P 
90 PRINT:INPUT"AMPLITUDE (0 BIS 199) ";A 

100 CLS 

110 PLOT 0,200:DRAW 639,200 
120 FÜR X=0 TO 639 
130 J=X/100:J=J*(1/P) 

140 Y=SIN(J):Y=Y*A 
150 Y==200+Y 
160 PLOT X,Y 
170 NEXT X 

172 LOCATE 19,12:PRINT"PI" 

174 LOCATE 38,12:PRINT"2PI" 

176 LOCATE 3,21:PRINT"FREQUENZ (IN PI) = ";P 
178 LOCATE 3,22:PRINT"AMPLITUDE ~ ";A 

180 LOCATE 18,24;PRINT"ENDE";END 
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Variablenliste : 


A = Amplitude 
J = transformierter X-Wert 
P = Frequenz 
X = X-Koordinatenwert 
Y = Y-Koordinatenwert 


Programmbeschreibung 


Satz 10- 50 : Überschrift 

Satz 60- 90 : Inputinformationen 

Satz 100-110 : Zeichnen einer waagrechten Mittel¬ 

linie 


Satz 120-170 ; Bestimmung der Sinuswerte und 

Zeichnen nach Transformation 
gemäß P und A 

Satz 172-180 : Textausgabe und Beendigung des 

Programms 
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Mathem. 


Tafel 1 


Problemstellung 


Im folgenden Programm werden für alle natürlichen 
Zahlen von 1 bis 100 die Quadratzahlen und die Qua ¬ 
dratwurzeln ausgegeben. 

Insoweit ist dieses Programm quasi als "Nachschlage- 
programm" zu verstehen. 


Problemanalyse 


Eine Problemanalyse dürfte bei dieser sehr einfachen 
Problemstellung entbehrlich sein. 
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Programm; 


10 REM Z5-TAFEL1 
20 CLS 

30 PRINT''PROGRAMM ZUR ERZEUGUNG DER QUADRATZAH-*' 
40 PRINT"LEN UND DER QUADRATWURZELN FUER ALLE" 

45 PRINT TAB(7)"NATUERLICHEN ZAHLEN (1-100)." 

50 PRINT:PRINT;PRINT TAB(9)"PROF.DR.W.VGSS, 1984 

60 GÜSUB 2000;REM WARTEN 
70 FÜR 1=1 TO 100 


80 Q=I*I;W=SQR(I) 

100 IF I/15=INT(I/15) 

110 NEXT I 

120 PRINT:PRINT"ENDE DER AUSGABE":END 


TUEN GOSUB 


USING "#####" 
000:REM WARTEN 


1000 REM UP KOPFZEILE 

1010 PRINT"ZAHL QUADRAT WURZEL":PRINT 

1020 FOR J=1 TO 23:PRINT"-"NEXT J:PRINT;RETURN 

2000 REM UP WARTEN 

^010 LOCATE 5,23:PRINT"BITTE EINE TASTE DRUECKEN 


2020 A^=INKEY:$-; IF A^="" THEN 2020 
2030 CLS 

2040 GOSUB 1000: REM KOPFZEILE 
2050 RETURN 
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Variablenliste: 


A$ = Stringvariable für Tasteneingabe 
I = Laufindex (natürliche Zahlen 1-1^0) 

J = Laufindex 

Q = Quadratzahl 

W = Quadratwurzel 


Programmbeschreibung 


Satz 10-50 : Überschrift 

Satz 60 : Sprung ins Unterprogramm 2000 

zum Abwarten 


Satz 70 -110 


Satz 120 


Berechnung und Ausgabe der interes¬ 
sierenden Werte 

Satz 100: Nach je 15 Zeilen Sprung 
ins Unterprogramm 2000 
zum Abwarten 

Ende des Hauptprogramms 


Satz 1000-1020 : Unterprogramm zur Ausgabe der Ta- 
bellen-KopfZeile 


Satz 2000-2050 : Unterprogramm zum Abwarten 

Satz 2010: Ausgabe einer Meldung 

Satz 2020: Abwarten einer Tasten¬ 
eingabe 

Satz 2030-2050: 

Ist die Tasteneingabe er¬ 
folgt, Löschen des Bild¬ 
schirms, Ausgabe einer 
neuen Kopfzeile durch Sprung 
ins UP 1000 und danach Rück¬ 
kehr ins Hauptprogramm. 
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Mathem. 


Tafel 2 


Problemstellung 


Dieses Programm dient 
der Winkelfunktionen 

- Sinus 

~ Cosinus 

- Tangens 


zur tabellarischen Ausgabe 

(SIN) ■ 

(COS) 

(TAN) 


Diese Winkelfunktionen werden in Abhängigkeit von 
Einheiten des Kreisparameters T (im Programm Pi ge¬ 
nannt) ausgegeben. Deshalb werden in der sich erge¬ 
benden Tabelle auch Winkelgrade angegeben. 


Problemanalyse 

Auch hier ist eine Problemanalyse nicht erforder¬ 
lich, weil keine besonderen Schwierigkeiten auf¬ 
tauchen. 
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Programm; 


10 

REM Z6-TAFEL2 



20 

CLS 




30 

PR I NT 

TAB(ll)"ZAHLENTAFEL 2": 

1 PR INT:PRINT 

40 

PR INT"PROGRAMM ZUR BESTIMMUNG 

DER WERTE DER" 

50 

PRINT' 

' WINKELFUNKTIONEN 

:":PRINT 

60 

PRINT 

TAB(ll)"SINUS 

(SIN)' 


70 

PRINT 

TAB(ll)"COSINUS 

(COS)' 


80 

PRINT 

TAB(ll)"TANGENS 

(TAN)• 


85 

PRINT! 

1 PRINT 



90 

GOSUB 

2000:REM WARTEN 




100 FÜR J=0 TO 40 
102 I=J/10 

105 A=(360*1)/(2*(22/7)):A=INT(A+0.5) 

110 B=SIN(I) 

120 C=COS(I) 

130 D=TAN(I) 

lg5„PRINT USING IPRINT TAB(6) USING "###. 

D 

137 IF J=0 THEN 150 

140 IF J/10=INT(J/10) THEN GÜSUB 2000 
150 NEXT J 

160 PRINT:PRINT"ENDE DER AUSGABE":END 
1000 REM UP KGPFZEILE 

1(;)^^)n^*RINT:PRINT" PI GRAD SIN COS TAN" 

1020 RETURN 

2000 REM UP WARTEN 

^010 LOCATE 5,23:PRINT"BITTE EINE TASTE DRUECKEN ! 

2020 A<:=INKEY:$:: IF A:J="" THEN 2020 

2030 CLS 

2040 GOSUB 1000 

2050 RETURN 
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Variablenliste; 


A = Winkel (in Grad) 

A?> = Stringvariable für Tasteneingabe 

B = Sinus 

C = Cosinus 

D = Tangens 

I = J/10 (=Abszissenwert der Winkelfunktionen) 

J = Laufindex (hier 0-40) 


Programmbeschreibung; 


Satz 10-85 : Überschrift 

Satz 95 : Sprung ins Unterprogramm 2000 

zum Abwarten 

Satz 100-150 : Berechnungen und Ausgabe der Er¬ 

gebnisse. 

Es werden 41 Tabellenwerte bestimmt 
(J=0 TO 40); wobei die Winkelfunktio¬ 
nen auf I=J/10 angewandt werden 
(Satz 102). 


Satz 105: Umwandlung in Winkelgrad 
Satz 110-130: 

Bestimmung von sin, cos 
und tan 

Satz 135-137: Ausgabe 
Satz 140: ^ 

Sprung ins Unterprogramm 2000 
nach jeder 10. Runde.(Um bei 
J=0 diesen Sprung zu vermeiden, 
der dann noch nicht sinnvoll 
ist, wird in Satz 137 für J=0 
zum Satz 150 gesprungen). 
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Satz 

160 : 

Ende des Hauptprogramms 


Satz 

1000-1020 ; 

Unterprogramm zur Ausgabe der 
Tabellen-KopfZeile 


Satz 

2000-2050 : 

Unterprogramm zum Warten 
(Beschreibung siehe Programm 
Z6-TAFEL1). 
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Mathem. 


Tafel 3 


Problemstellung 

Das folgende Programm dient zur Ausgabe der natür¬ 
lichen Logarithmen ln(X) im Wertebereich für X 
zwischen 1 und 100. 


Problemanalyse 

Auch hier ist eine Problemanalyse wegen der Schlicht¬ 
heit der Fragestellung entbehrlich. 
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Prograinin; 


10 REM Z7-TAFEL3 
20 CLS 

30 PRINT TAB(13)"ZAHLENTAFEL 3":PRINT:PRINT 
40 PRINT"PROGRAMM ZUR BESTIMMUNG DER WERTE DER" 

50 PRINT TAB(8>"NATUERLICHEN LOGARITHMEN" 

60 PRINT:PRINT:PRINT TAB(10)"PROF.DR.W.VOSS, 1984" 
:PRINT 

70 GOSUB 2000 
80 FOR 1=1 TO 100 
85 L=LOG(I) 

90 PRINT USING "####";I;:PRINT TAB(8) USING "###.# 
###";L 

100 IF I/15=INT(1/15) THEN GOSUB 2000 
110 NEXT I 

120 PRINT;PRINT:PRINT"ENDE DER AUSGABE":END 
1000 REM UP KOPFZEILE 

1010 PRINT:PRINT"ZAHL LOGARITHMUS":PRINT 

1020 RETURN 

2000 REM UP WARTEN 

;^010 LOG ATE 5,23; PR INT" BITTE EINE TASTE DRUECKEN ! 

2020 A:$=INKEY4:; IF A:f="" THEN 2020 

2030 CLS 

2040 GOSUB 1000 

2050 RETURN 
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Variablenliste: 



A$ = 

Stringvariable für Tasteneingabe 


I 

Laufindex (hier 1-100) 


L 

Natürlicher 

Logarithmus von I 


ProgreuTunbeschreibung: 


Satz 

10-60 : 

Überschrift 


Satz 

70 : 

Sprung ins Unterprogramm 2000 
zum Abwarten 


Satz 

80-110 : 

Berechnungen der Logarithmen und 

Ausgabe; 



nach jeder 15. Tabellenzeile Sprung 
ins Unterprogramm 2000 zum Warten 

Satz 

120 : 

Beendigung des Hauptprogramms 


Satz 

1000-1020 : 

Unterprogramm zur Ausgabe einer 
Tabellen-KopfZeile 


Satz 

2000-2050 ; 

Unterprogramm zum Abwarten 
(Beschreibung siehe Programm 
Z6-TAFEL1). 
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Ellipse 


Problemstellung 

Das Programm zeichnet eine beliebige Ellipse. 
Dabei sind folgende Werte einzugeben; 

T; Spalte des Ellipsenmittelpunkts 
(0-319) 

Z: Zeile des Ellipsenmittelpunkts 
(0-199) 

A: Erste Halbachse der Ellipse 
B; Zweite Halbachse der Ellipse 
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Problemanalyse 


Die Ellipsengleichung lautet in der sog. Mittel¬ 
punkt-Schreibweise (Ellipsenmittelpunkt im Koordi¬ 
natenursprung) : 



Um eine derartige Funktion per BASIC-Programm zeich¬ 
nen zu können, müssen wir sie nach y auflösen, wobei 
sich ergibt: 



Wenn wir nun berücksichtigen, daß eine beliebige Ellip¬ 
se die Koordinaten (T,Z) und nicht immer nur (0,0) 
als Mittelpunktkoordinaten aufweist, so sind Verschie¬ 
bungskorrekturen erforderlich (vergl. die folgende 
Programmbeschreibung). 
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Programm; 


10 REM Z8-ELLIPSE 
20 CLS 

30 PRINT"PRÜGRAMM ZUM ZEICHNEN EINER BELIEBIGEN" 
40 PRINT TAB(16)"ELLIPSE." 

50 PRINT:PRINT:PRINT TAB(9)"PRÜF.DR.W.VOSS, 1984" 

60 PRINT:PRINT:PRINT:PRINT 

70 PRINT"DIESES PROGRAMM BENOETIGT ALS INPUT-" 

80 PRINT"INFORMATIONEN :":PRINT 

90 PRINT"KOORDINATEN DES MITTELPUNKTS : "zPRINT 
100 PRINT TAB(5);:INPUT"X-WERT (SPALTE) : ";T 
110 PRINT TAB(5);:INPUT"Y-WERT (ZEILE) : ";Z 

120 PRINT:INPUT"ERSTE HALBACHSE A : ";A 

125 PRINT:INPUT"ZWEITE HALBACHSE B : ";B 

130 CLS 

140 PLOT 0,0:DRAW 639,0 

150 PLOT 0,0:DRAW 0,399 

160 PLOT 0,Z:DRAW 639,Z 

170 PLOT T,0:DRAW T,399 

390 REM ELLIPSE 

400 C=T-A: D=T-*-A 

410 IF C<0 THEN C=0 

420 IF D>639 THEN D=639 

430 FÜR X=C+1 TO D-1 

440 DS= (B/A) *SQR (A*A-(X-T)-^2) 

450 Y=Z+DS 

460 IF Y<0 OR Y>399 THEN 480 
470 PLOT X,Y 
480 NEXT X 

490 FÜR X=D-1 TO C+1 STEP -1 
500 DS=(B/A)*SQR(A*A-(X-T) '2) 

510 Y=Z-DS 

520 IF Y<0 OR Y>399 THEN 540 
530 PLOT X,Y 
540 NEXT X 

550 LOCATE 5,23:PRINT"ENDE DER AUSGABE":END 
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Variablenliste; 

A = Erste Halbachse der Ellipse 

B = Zweite Halbachse der Ellipse 

C = Linker Extremwert der Ellipse 

D = Rechter Extremwert der Ellipse 

DS = Hilfsgröße aus der Ellipsengleichung 

T = Spalte des Ellipsenmittelpunkts 

X = Abszissenwert 

Y = Ordinatenwert 

Z = Zeile des Ellipsenmittelpunkts 


Programmbeschreibung 


Satz 10- 60 
Satz 60-125 

Satz 130 
Satz 140-150 
Satz 160-170 


Satz 390-480 
Satz 490-540 
Satz 550 


Überschrift 

Vorgabe der Mittelpunktkoordi¬ 
naten und der Halbachsen 

Löschen des Bildschirms 
Zeichnen des Achsenkreuzes 

Zeichnen eines zweiten Achsen¬ 
kreuzes, dessen Achsen durch den 
Ellipsenmittelpunkt laufen 

Zeichnen der oberen Ellipsenhälfte 
Zeichnen der unteren Ellipsenhälfte 
Beendigung des Programms 
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Gauß'sehe 


Normalverteilung 


Problemstellung 


Dieses Programm stellt die Gauß'sehe Normalvertei¬ 
lung graphisch dar. 

Sie hat die Dichtefunktion 


f (X) 


>f 


‘ e 


* “i L SS / 


Dabei sind MM und SS die charakterisierenden Lage¬ 
parameter (siehe folgende Skizze): 


MM bezeichnet den Mittelwert der Verteilung 

SS bezeichnet die Streuung der Verteilung 
(Standardabweichung = Abstand zwischen 
dem Lot im Mittelwert und einem der bei¬ 
den Wendepunkte der Verteilung). 
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In diesem Programm haben wir vorgegeben: 

MM = 160 
SS = 40 



Problemanalyse 


Hier wiederum entbehrlich. 
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Prograinm; 


10 REM Z9-GAUSS 
20 CLS 

30 PRINT"PROGRAMM ZUM ZEICHNEN EINER GAUSS SCHEN" 
40 PRINT TABdl) "NÜRMALVERTEILUNG. " 

I nt : PR I NT: PR I NT: PR I NT TAB (9) "PRÜF. DR. W. VOSS , 

60 PRINT:PRINT:PRINT:PRINT 

70 PRINT"DIESES PROGRAMM ZEICHNET EINE NORMAL-" 

80 PRINT"VERTEILUNG MIT DEM MITTELWERT 200 UND" 

90 PRINT"DER STANDARDABWEICHUNG 60.":PRINT 

100 PRINT"DIESE WERTE KOENNEN GGF. GEAENDERT WER-" 

110 PRINT TAB(10)"DEN. (SIEHE SATZ 120)" 

115 GOSUB 1000:REM WARTEN 
120 MM=200:SS=60 
130 CLS 

140 PLOT 0,0:DRAW 400,0 
150 PLOT 200,0:DRAW 200,300 
390 REM NORMALVERTEILUNG 
400 A=l/(SS*SQR(2*(22/7))) 

410 FÜR X=0 TO 400 
420 B=( (X-MM)/SS) -''2 
430 B=0.5*B*(-1) 

440 Y>=A*EXP(B) 

450 Y=(2000000/SS)*Y 

460 IF Y<0 OR Y>399 THEN 480 

470 PLOT X,Y 

480 NEXT X 

490 PRINT"ENDE DER AUSGABE":END 
1000 REM UP WARTEN 

1010 LOCATE 5,23:PR INT"BITTE EINE TASTE DRUECKEN ! 

1020 At=INKEY:|:: IF A^="" THEN 1020 
1030 CLS:RETURN 







Voß 

Kapitel 9 

: Mathematik II 

Seite 


Abschnitt Io 

• Gauß 

323 

Schule 





Variablenliste: 


A = Erster Term der Funktionalgleichung 

A3 = Stringvariable für Tasteneingabe 

B = Exponent in der Funktionalgleichung 

MM = Mittelwert der Normalverteilung 
SS = Standardabweichung der Normalverteilung 
X = Abszissenwert 

Y = Ordinatenwert 


Programmbeschreibung 


Satz 10-110 
Satz 115 
Satz 120-130 

Satz 140-150 
Satz 390-480 

Satz 490 
Satz 1000-1030 


Überschrift und Erläuterungen 
Abwarten 

Vorgabe der Funktionalparameter 
der Verteilung und Löschen des 
Bildschirms 

Zeichnen eines Achsenkreuzes 

Errechnen der Ordinatenwerte der 
Normalverteilung, Normierung (Satz 
450) und graphische Ausgabe 

Ende des Programms 
Unterprogramm zum Atwarten 
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Regression 


Problemstellung 


Die Regressionsrechnung ist eine wichtige 
Aufgabenstellung aus dem Bereich der mathematischen 
Statistik. Es geht dabei darum, eine bivariate sta¬ 
tistische Verteilung durch eine zusammenfassende ma¬ 
thematische Funktion, die im einfachsten Fall eine 
Gerade ist, zu beschreiben. 

Eine bivariate statistische Verteilung entsteht bei¬ 
spielsweise dann, wenn wir eine gegebene Population 
nach zwei Merkmalen gleichzeitig untersuchen, wenn 
wir also zum Beispiel eine Reihe von Untersuchungsper¬ 
sonen nach Körpergröße und Körpergewicht gleichzeitig 
befragen. 

Ziel einer solchen Untersuchung ist es, festzustellen, 
ob zwischen den beiden Variablen ein Zusammenhang be¬ 
steht . 

Eine solche bivariate Verteilung läßt sich anschaulich 
als "Punktwolke" in einem zweidimensionalen Koordina¬ 
tensystem darstellen, wie es die folgende Skizze ver¬ 
deutlicht. 
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Um nun die Art des Zusammenhangs zwischen beiden 
Variablen zu beschreiben, bzw. um bei einer Zeit¬ 
reihe den linearen Trend zu bestimmen, was mathema¬ 
tisch die gleiche Aufgabe ist, versucht man, in 
die Punkte im Achsenkreuz möglichst gut eine lineare 
mathematische Funktion hineinzulegen. 

Entsprechend gibt es auch nichtlineare Berechnungs¬ 
ansätze, auf die aber hier nicht eingegangen werden 
soll. 
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Problemanalyse 


Die einzuzeichnende lineare oder nichtlineare 
Funktion bestimmt man in der Regel mit der Methode 
der kleinsten Quadrate. 


Diese Methode gibt eine Rechenvorschrift an zur Bestim¬ 
mung der Parameter der anzupassenden Funktion. Bei 
einer Geraden handelt es sich dabei um den Ordinaten¬ 
abschnitt A und die Steigung B. 

Die Methode der kleinsten Quadrate verlangt, daß diese 
beiden Parameter so zu bestimmen sind, daß die Summe 
der quadrierten Abweichungen zwischen den beobachteten 
Y-Werten (senkrechte Koordinaten) und den auf der 

Gerade liegenden Y-Werten y^* zu minimieren ist, also: 


Da die Werte y^* sich gemäß der Geradengleichung wie 
folgt berechnen : 

y^"" = a + b*x^ 

ergibt sich aus der obigen Minimierungsrege1 : 
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- a - b*x^) ^ = Min. 


Das Minimum dieser Beziehung findet man, indem man 
sie partiell nach den Größen a und b differenziert 
und diese beiden ersten partiellen Ableitungen gleich 
null setzt. 

Auf diese Weise erhält man zwei Gleichungen mit zwei 
Unbekannten (a und b), die man nach eben diesen Unbe¬ 
kannten auflösen kann. Damit erhält man die folgenden 
beiden Bestimmungsgleichungen für a und b : 


n * Zvi 


n * Z^i^ - ( Z^i»^ 


a = - - b *- 

n n 


Das zu entwickelnde BASIC-Programm dient dazu, 
für beliebig einzugebende Wertepaare 
^i'^i ^i®se beiden Parameter nach der Methode der 
kleinsten Quadrate zu errechnen und als Ergebnisse aus¬ 
zugeben. 
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Programm; 


10 REM ZIO-REGRESSION 
20 CLS 

30 PRINT"PROGRAMM ZUR BESTIMMUNG DER PARAMETER" 

40 PRINT"EINER LINEAREN REGRESSIONSFUNKTION BZW." 
50 PRINT TAB(6)"EINER LINEAREN TRENDLINIE." 

60 PRINT;PRINT:PRINT TAB(9)"PROF.DR.W.VOSS, 1984" 

70 PRINT:PRINT:PRINT;PRINT:PRINT 

80 PRINT"DIESES PROGRAMM BENOETIGT WERTEPAARE" 

90 PRINT"ALS INPUT-INFORMATIONEN (Z.B. X- UND Y-" 

;,oo 

110 
120 
130 
140 
150 
160 
170 
172 
174 
176 

178 

179 

180 
185 
190 
200 
210 
220 
230 
240 
250 


PRINT"WERTE ODER ZEIT- UND MERKMALSWERTE USW.) 

GOSUB 1000 ;REM WARTEN 

INPUT"WIEVIELE WERTEPAARE : ";N 

DIM X(N),Y(N) 

PRINT:PRINT TAB(5)"EINGABE ; ":PRINT:PRINT 

FOR 1=1 TO N 

PRINT I;".PAAR X,Y : INPUT X(I),Y(I) 

NEXT I 

CLS;PRINT"KONTROLLE":PRINT:PRINT 
PRINT"NR. X-WERT Y-WERT":PRINT 

FOR 1=1 TO N;PRINT I,X(I),Y(I) 

IF I/10=INT(I/IO) THEN GOSUB 1000 
NEXT I 

REM REGRESSION 
GOSUB 1000:REM WARTEN 
FOR 1=1 TO N 
S1=S1+X(I)*Y<I) 

S2=S2+X(I):S3=S3+Y(I) 

S4=S4+X(I)*X (I) 

NEXT I 

B=(N*S1-S2*S3)/<N*S4-S2*S2) 

A=S3/N-B*S2/N 
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265 CLS 

270 PRINT"ERGEBNIS : PRINT:PRINT 

280 PRINT"ORDINATENABSCHNITT A = ";A 
290 PRINT;PRINT"STEIGUNG B = ";B 

300 PRINT:PRINT;PRINT:PRINT 

310 PRINT"MIT DIESEN PARAMETERN KANN NUN DAS PRO-" 
320 PRINT"GRAMM ZUM ZEICHNEN EINER GERADEN AUFGE-" 
330 PRINT"RUFEN WERDEN, WENN MAN DAS ERGEBNIS " 

^.40 PR INT "AUCH GRAPHISCH VERANSCHAULICHEN MOECHTE. 

350 PRINT;PRINT:PRINT"ENDE DER AUSGABE":END 
1000 REM UP WARTEN 

J^OIO LOCATE 5,23: PR INT" BITTE EINE TASTE DRUECKEN ! 

1020 A^=INKEY^:; IF A^:="" THEN 1020 
1030 CLS 
1040 RETURN 
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Variablenliste; 


A = Ordinatenabschnitt der Geraden 

= Stringvariable für Tastatureingabe 
B = Steigung der Geraden 
I = Laufindex 
N = Zahl der Wertepaare 

51 = 

52 = 

Hilfssummen zur Berechnung von B und A 

53 =. 

54 =y 

X = Abszissenwert 
Y = Ordinatenwert 
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Programmbeschreibung; 


Satz : Überschrift, Erläuterungen und Warten. 

Satz : Angabe der Zahl der Paare von Merk- 

malswerten und Dimensnionierung. 


Satz 14^-17^ : Eingabe der Merkmalswerte über INPUT. 

Satz 172-179 ; Kontrollausgabe der Paare von Merk¬ 

malswerten mit Pause nach jedem zehn¬ 
ten Paar. 


Satz 180-185 : Warten. 


Satz 190-230 : Bildung der vier Summen, die in den 

Berechnungsformein für A und B benö¬ 
tigt werden. 

Satz 240-250 ; Berechnung der Geradenparameter A 

und B. 


Satz 265-300 : Ergebnisausgabe. 

Satz 310-350 ; Verzweigungshinweis und Beendigung 

des Programms. 


Satz 1000-1040 : Unterprogramm Warten. 
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9.12 


Permutationen 


Problemstellung 

Die Berechnung von Permutationen beantwortet die 
Frage, auf wieviele unterschiedliche Arten verschie¬ 
dene Elemente angeordnet werden können. 

Problemanalyse 


Haben wir beispielsweise drei verschiedene Elemente 
a, b und c, so sind die folgenden Anordnungsmöglich¬ 
keiten voneinander unterscheidbar : 

abc, acb, bac, bca, cab, cba 

Bei drei Elementen gibt es also sechs verschiedene 
Anordnungsmöglichkeiten. 

Allgemein gilt die folgende Überlegung : 
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Für das erste von drei Elementen gibt es drei Möglich¬ 
keiten ; Es kann an erster, an zweiter.oder an dritter 
Stelle stehen; 

für das zweite Element gibt es dann nur noch zwei Mög¬ 
lichkeiten, wenn entschieden worden ist, wo das erste 
Element stehen soll. 

Dies bedeutet aber, daß es für die ersten beiden Ele¬ 
mente zusammen 3*2 = 6 Möglichkeiten gibt. 

Für das dritte Element gibt es dann nur noch eine Mög¬ 
lichkeit und für alle drei Elemente also 3*2*1 = 6 
verschiedene Anordnungsmöglichkeiten. 

Hat man nun n verschiedene Elemente, so ergibt sich 
entsprechend ; 

Zahl der Anordnungsmöglichkeiten = 
n*(n-1)*(n-2)*(n-3)* ... * 3*2*1 

Diese Produktkette kürzt man ab durch die Schreibweise 
nl (sprich n-Fakultät) und sagt, daß n verschiedene 
Elemente auf n-Fakultät verschiedene Arten angeordnet 
werden können, oder : 

Permutation von n verschiedenen Elementen ist 
n-Fakultät (n!). 

Es ist zu beachten, daß bei großen Werten für n 
der Ausaruck n! rasch sehr groß wird, und zwar 
so rasch ansteigend, daß schon ab n = 34 der Rech¬ 
ner das Ergebnis 34! nicht mehr darstellen kann. 
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Programm 


10 REM ZI1-PERMUTATIONEN 
20 CLS 

30 PRINT"PRÜGRAMM ZUR BESTIMMUNG DER ANZAHL DER" 

40 PRINT"PERMUTATIGNEN VON N VERSCHIEDENEN ELE-" 

50 PRINT TAB(5)"MENTEN (= N-FAKULTAET « N!)" 

60 PRINT:PRINT:PRINT TAB(9)"PROF.DR.W.VOSS, 1984" 
70 PRINT:PRINT:PRINT:PRINT 
80 INPUT"ZAHL DER ELEMENTE N : ";N 

90 P=N 

GROSS FUER DIESEN 

110 FOR I=N-1 TO 1 STEP -1 
120 P=P*I 
130 NEXT I 

140 PRINT:PRINT"FAKULTAET VON ";N;" IST ";P 
l^Opg^INJ:PRINT:PRINT"NOCH EINE RECHNUNG ? (J/N)"; 

160 IF A^="J" THEN CLS:GOTO 80 
170 PR INT:PRINT:PRINT"ENDE":END 


Variablenliste; 

Aß = Stringvariable für Antworten 

I = LaufIndex (Faktoren des Produkts) 

N = Zahl der Elemente 

P = Zwischen- und Endprodukt 
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Proqrammbeschreibung: 


Satz : Überschrift und Erläuterungen. 

Satz 80-90 : Anforderung der Inputinformation (Zahl 

der zu permutierenden•Elemente N) und 
Belegung des Produktfeldes P mit dem 
Wert im Feld N als erstem Faktor der 
zu bildenden Produktkette. 


Satz 100 : Meldung,wenn N gleich oder größer 34 

ist, weil dazu die Rechenkapazitäten 
nicht ausreichen und Sprung nach 750 

Satz 110-130 : ‘Bildung der Produktkette im Feld P. 


Satz 140 : Ergebnisausgabe. 


Satz 150-170 : Beendigung des Programms, es sei denn, 
es wird eine erneute Berechnung ge¬ 
wünscht (dann weiter bei Satz 80 nach 
Löschen des Bildschirms). 
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9.13 


Kombinationen 


Problemstellung 


Eine ähnliche Fragestellung wie im vorangegangenen 
Programm liegt vor, wenn berechnet werden soll, 
auf wieviele verschiedene Arten k Elemente aus n 
verschiedenen Elementen ausgewählt werden können. 


Als Berechnungsformel ergibt sich: 


Anzahl 


n I 

k!(n-k)1 


Man nennt diese Größe Binomialkoeffizient und kürzt 
ihn ab mit folgender Schreibweise: 


Er entspricht übrigens den Faktoren, die sich bei 
der Auflösung der sog. Binome ergeben: 

(a+b)^ = a^ + 2ab + b^ 

= 1a^b° + 2a^b^ + 1a°b^ 

- .'b' • (>v 
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oder: 


(a+b)^ = + 3a^b + 3ab^ + b^ 

= laV + + Sa^b^ + 1a°b^ 

= fo')aV + (3)a2b1 ^ 

Man sieht, daß jedes Binom sich in Summanden zerle¬ 
gen läßt, wobei es immer ein Summand mehr ist als 
die Hochzcihl des Binoms angibt (Hochzahl im letzten 
Beispiel war 3; Zahl der Summanden war 4). 

Jeder Summand besteht aus 3 Faktoren: 

- eine Konstante (der hier interessierende 
Binomialkoeffizient); 

- Faktor "a hoch..." mit einer Hochzahl, die 
von der Binomhochzahl (hier 3) auf 0 sinkt; 

- Faktor "b hoch ..." mit einer Hochzahl, die 
von 0 zur Binomhochzahl (hier 3) ansteigt. 

Im hier interessierenden Binomialkoeffizienten wiederum 
steht als oberer Wert die Binomhochzahl (hier 3)/ als 
unterer eine ganze Zahl, die von links nach rechts von 
0 bis zur Binomhochzahl ansteigt. 

Das Programm, um das es hier geht, bestimmt beliebige 
Binomialkoeffizienten, so daß wir also mit diesem Pro¬ 
gramm leicht auch kompliziertere Binome bestimmen kön¬ 
nen (z.B. (a+b)^^}. 

Aber auch für Berechnungen kann dieses Programm genutzt 
werden, wie die folgenden beiden Programme zeigen. 

Schließlich kann mit einem derartigen Programm z.B. 
folgende konkrete Frage beantwortet werden: 
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"8 Läufer starten zu einem 100-m-Lauf. Auf wieviele 
verschiedene Arten können die ersten drei Plätze 
besetzt werden?" 

Antwort: 


81 


81 


31(8-3) 


3151 


8*7.6 

3.2*1 


= 56 
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Programm: 


10 REM Z12-K0MBINATIONEN 
20 CLS 

30 PRINT"PROGRAMM ZUR BESTIMMUNG DER ANZAHL DER" 

40 PRINT"KOMBINATIONEN VON K AUS N ELEMENTEN." 

spr^icht in diesem ZUSAMME 

55 PRINT" DEN SOG. BINOMIALKOEFFIZIENTEN." 
t^^84 " ^ ^ ^ I NT: PR I NT; PR I NT TAB (9) " PROF. DR. W. VOSS, 

70 PRINT:PRINT:PRINT;PRINT 
80 INPUT"ZAHL DER ELEMENTE N : ";N 

90 INPUT"ZAHL DER AUSZUWAEHLENDEN K : ";K 
100 Y=N-K 

110 IF K=0 OR K=N THEN BK=1:G0T0 210 
120 IF K>N/2 THEN H=Y:Y=K:K=H 
130 GOSUB 500 
140 PX=A:A=N 

150 IF PX=1 THEN PN=N:GOTO 200 

160 FOR I=N-1 TO N-K+1 STEP -1 

170 A=A*I 

180 NEXT I 

190 PN=A 

200 BK=PN/PX . 

ANZAHL DER KOMBINATIONEN VON 

220 PRINT N;" ELEMENTEN IST ; ";BK 

230 PRINT:PRINT:PRINT"ENDE DER BERECHNUNGEN":END 

500 REM UP FAK 

510 A=K 

520 IF K=0 OR K=1 THEN A=1:G0T0 560 

530 FOR I=K-1 TO 1 STEP -1 

540 A=A*I 

550 NEXT I 

560 RETURN 
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Variablenliste; 


A = Fakultät (Zwischen- und Endprodukt) 

BK = Binimialkoeffizient 
H = Hilfsgröße beim Tausch von K und Y 
I = Laufindex (Faktor bei der Fakultätsberechnung) 
K = Zahl der auszuwählenden Elemente 
N = Zahl der Elemente 

PN = Erste Fakultät im Binomialkoeffizient 
PX = Zweite Fakultät im Binomialkoeffizient 
Y = N-K 
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Prograinmbe Schreibung: 


Satz 

10-70 : 

Überschrift und Erläuterungen 


Satz 

80- 90 : 

Eingaben (Zahl der Elemente N 
und Zahl der Auszuwählenden K) 


Satz 

100 : 

Belegung der Hilfsgröße Y 


Satz 

110 : 

Vereinfachte Berechnung für 

K=0 oder K=N, weil definitions¬ 
gemäß gilt: 




II 

II 


Satz 

120 : 

Vertauschen von K und (N-K) (=y), 

falls K> N/2. Dies ist möglich, 
weil gilt: 



/N\ _ Ni _ / N \ 

^K^ K!(N-K)i ^N-k' 




Auf diese Weise werden die folgen¬ 
den Berechnungen vereinfacht. 

Satz 

130 : 

Berechnung von Kl im Unter¬ 
programm 500 


Satz 

140-190 : 

Berechnung der anderen Fakultät, 
die nach geeignetem Kürzen (siehe 
z.B. die Rennläufer-Aufgabe oben) 
noch übrig bleibt. 

Satz 

200-230 : 

Berechnung und Ausgabe des Binomial¬ 
koeffizienten und Beendigung des 
Hauptprogramms 

Satz 

500-560 : 

Berechnung von K! in einem Un¬ 
terprogramm 
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9.14 


Lotto 


Problemstellung 

Es soll ein Programm erstellt werden^ welches die 
Chancen ausrechnet, beim Lottospiel (6aus 49) zu ge¬ 
winnen. 

Problemanalyse 

Das Programm berechnet die Wahrscheinlichkeit für 3, 
4, 5 oder 6 Richtige im Zahlenlotto (6 aus 49). 

Die entsprechenden Wahrscheinlichkeiten berechnen 
sich gemäß der folgenden Formel: 



B1*B2 

B3 


P(X) 


Dabei ist X die vom Benutzer anzugebende "Zahl der 
Richtigen". 

Es muß hier also mit drei B-nomialkoeffizienten 
(Bl, B2 und B3) gearbeitet werden, denen wir 
ja schon im vorangegangenen Kapitel begegnet waren. 

Deshalb sind detailliertere Erläuterungen hier ent¬ 
behrlich. 
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Programm 


10 REM Z13-LÜTTG 
20 CLS 

30 PRINT"PROGRAMM ZUR BESTIMMUNG DER WAHRSCHEIN-" 
40 PRINT"LICHKEIT FUER 3,4,5 ODER 6 RICHTIGE IM" 
50 PRINT TAB(ll)"LOTTO (6 AUS 49)." 

^^g^^INT:PRINT;PRINT:PRINT TAB(9)"PROF.DR.W.VOSS, 

70 PRINT:PRINT:PRINT:PRINT 

80 PRINT"DIESES PROGRAMM BERUECKSICHTIGT NICHT" 

90 PRINT"DIE MOEGLICHKEIT 5 RICHTIGE MIT ZUSATZ-" 
100 PRINT TAB(17)"ZAHL." 

110 GOSUB 1000:REM WARTEN 
120 INPUT "WIEVIELE RICHTIGE ";X 
125 IF X=6 THEN B1=1;B2=1;GOTO 300 
130 REM Bl 

135 IF X=5 THEN-Bl=6:B2=43:GOTO 300 
140 Y=6-X 

150 P=X:FOR I=X-1 TO 1 STEP -1 
160 P=P*I;NEXT I;P1=P 
170 P=Y:FOR I=Y-1 TO 1 STEP -1 
180 P=P*I:NEXT I 
190 P2=P 

200 Bl'=720/(P1*P2) 

210 REM B2 
220 X*=Y 
230 P»43 

240 FOR I=P-1 TO 43-X+l STEP -1 
250 P=P*I:NEXT I 
260 P1=P 
265 P=X 

270 FOR I=X-1 TO 1 STEP -1 
280 P=P*I;NEXT I 
290 P2=P:B2=P1/P2 
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300 REM B3 
310 P1=49:P2=6 
320 FÜR 1=1 TO 5 
330 P1=PHK49-I> 

340 P2=P2*(6-I) 

350 NEXT I 

360 B3=P1/P2:W=(B1*B2)/B3 
370 CLS 

380 PRINT" ERGEBNIS PRINT:PRINT 

390 PRINT"DIE WAHRSCHEINLICHKEIT FUER ";X 
400 PRINT"RICHTIGE IM LOTTO BETRAEGT : " 

410 PRINT:PRINT:PRINT TAB(5)W 

|JO^PRINJ|^p;g^NJ|.PRINT:PRINT"NOCH EINE BERECHNUNG ? 
430 IF A^="J" THEN CLS:GOTO 120 

440 PRINT:PRINT:PRINT"ENDE DER BERECHNUNGEN":END 
1000 REM UP WARTEN 

1010 LOCATE 5,23:PRINT"BITTE EINE TASTE DRUECKEN ! 

1020 A:|:=INKEY:t: IF A4^="" THEN 1020 
1030 CLS 
1040 RETURN 
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Variablenliste ; 


A^> = Stringvariable für Antworteingaben 

Bl = Erster Term in der Berechnungsformel 
B2 = Zweiter Term in der Berechnungsformel 
B3 = Dritter Term in der Berechnungsformel 
P = Produkt in den Fakultätenberechnungen 
PI = Erste Fakultät im Binomialkoeffizienten 
P2 = Zweite Fakultät im Binomialkoeffizienten 
W = Wahrscheinlichkeit 
X = Anzahl der "Richtigen" 

Y = 6-X 
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Programmbeschre 

ibung; 


Satz 

10-100 

: Überschrift und Erläuterungen 


Satz 

110 

: Sprung ins Unterprogramm 1000 
zum Warten 


Satz 

120 

: Eingabe der Zahl der Richtigen 


Satz 

125 

: Für X=6 gilt, daß B1=B2=1 (siehe 

Programm Z10); weiter bei Satz 

300 

Satz 

130-200 

: Bestimmung von Bl gemäß der Über¬ 
legungen wie wir sie aus Prograimm 

Z10 schon kennen 

Satz 

210-290 

; Entsprechende Bestimmung des zwei¬ 
ten Binomialkoeffizienten B2 

Satz 

300-360 

; Entsprechend B3 


Satz 

360 

: Berechnung der Wahrscheinlichkeit W 

Satz 

370-410 

: Ausgabe des Ergebnisses 


Satz 

420-440 

: Beendigung des Hauptprogramms, 
sei denn, es wird eine Alterna¬ 
tivberechnung gewünscht 

es 

Satz 

1000-1040 

: Unterprogramm zum Abwarten 
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9.15 


Binomialverteilung 


Problemstellung 


Die Binomialverteilung ist eine Wahrschein¬ 
lichkeitsverteilung . Wahrscheinlichkeitsverteilungen 
wiederum dienen dazu, auf möglichst einfache Weise 
auch für kompliziertere Fragestellungen Wahrschein¬ 
lichkeiten zu berechnen. 

Die binomische Verteilung ist auch deshalb besonders 
wichtig, weil sie als "Grundbaustein" für eine ganze 
Reihe darauf aufbauender Wahrscheinlichkeitsberech¬ 
nungsverfahren dient. 

Die binomische Verteilung antwortet auf die folgende 
Frage : 

Wie groß ist die Wahrscheinlichkeit, daß bei n von¬ 
einander unabhängigen Versuchen x^-mal das günstige 
Ereignis eintritt, wenn bei jedem Versuch nur zwei 
Ergebnisse möglich sind, und wenn die Eintrittswahr¬ 
scheinlichkeit des günstigen Ereignisses bei einem 
Versuch P % beträgt ? 

Ein einfaches Beispiel mag diese Frage etwas veran¬ 
schaulichen : 
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Wie groß ist die Wahrscheinlichkeit, bei Münzwür¬ 
fen z.B. 5 Mal "Kopf” zu werfen ? 

Dies ist ein Anwendungsfall der binomischen Verteilung, 
weil bei jedem Versuch zwei Ereignisse möglich sind 
("Kopf" und Zahl") und weil die Versuche (die Wür¬ 
fe) voneinander unabhängig sind. 

Eine entsprechende Frage wäre beispielsweise : 

Wie groß ist die Wahrscheinlichkeit, daß bei 5 Gebur¬ 
ten genau 2 Mädchen zur Welt kommen ? 


Problemanalyse 


Zur Analyse des gestellten Problems beschäftigen wir 
uns einmal mit dem zuletzt erwähnten Beispiel : 

Wenn bei fünf Geburten zwei Mädchen zur Welt koinmen 
sollen, so wäre beispielsweise folgende "Kinder-Kom- 
bination" günstig im Sinne der Fragestellung ; 

M M K K K (M * Mädchen, K = Knabe) 

Günstig wäre aber auch : 

K K K M M 

und viele andere Kombinationen. 
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Die Anzahl der insgesamt "günstigen" Kombinationen 
kann mit Hilfe der Permutationsberechnung gefunden 
werden, über die schon gesprochen wurde. 


Ohne dies hier beweisen zu wollen, stellen wir fest, 
daß die Anzahl der Kombinationsmöglichkeiten von 2 
Mädchen und 3 Knaben sich ergibt zu : 

Anzahl = —^^ ' 

21 * 31 2*1 * 3*2*1 


Allgemein gilt, daß die Anzahl der verschiedenen An¬ 
ordnungsmöglichkeiten von n Elementen, von denen 
Stück gleich sind (im Sinne von "günstig") und weitere 
n-x^ ihrerseits gleich sind (im Sinne von "ungünstig") 
sich ergibt zu : 

Anzahl = - ^ - 

X . 1 *(n-x.) I 
1 1 
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Wir gehen bei der weiteren Problemanalyse davon aus, 
daß die Wahrscheinlichkeit einer Mädchengeburt P be¬ 
trage (P = ?i.5) - dies ist die Eintrittswahrschein¬ 

lichkeit des günstigen Ereignisses bei einem Versuch. 

Betrachten wir nun noch einmal das Ergebnis : 

M M K K K 


Wie groß ist die Wahrscheinlichkeit eines solchen Er¬ 
gebnisses bei fünf Versuchen ? 

Betrachten wir zunächst die erste Mädchengeburt : Ihre 
Wahrscheinlichkeit ist offenbar gleich 0.5. 

Auch die Wahrscheinlichkeit der zweiten Mädchengeburt 
ist 0.5. 

Die Wahrscheinlichkeit nun dafür, daß die ersten beiden 
Geburten zusammen beides Mädchengeburten sind, beträgt 
dann 0.5 * 0.5 (allgemein P * P). 

Die Wahrscheinlichkeit für eine Knabengeburt beträgt 
1 - 0.5 (allgemein 1-P). Deshalb ergibt sich nach der 
gleichen Überlegung wie oben, daß die Wahrscheinlich¬ 
keit dafür, bei der dritten und bei der vierten und 
bei der fünften Geburt knaben zu erhalten, sich ergibt 
zu : 
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(1 - 0.5)*(1 - 0.5)*(1 - {Zi.5) 

oder allgemein : 

(1 - P)*(1- - P)*(1 - P) 

Für die Kombination M M K K K erhalten wir deshalb 
insgesamt die folgende Wahrscheinlichkeit in allge¬ 
meiner Schreibweise : 

P*P’»^(1-P)*(1-P)*(1-P) 

= p2 * (■] _ p) 3 

X. n-x. 

= p ^ * (1 - p) ^ 


In unserem Beispiel würde sich deshalb ergeben ; 
Wahrscheinlichkeit für M M K K K = 

0.5^ * (1 - 0.5)^"^ = 0.5^ = 1/32 

Nun sind aber in diesem Beispiel 10 verschiedene 
M,K-rKombinationen günstig im Sinne der Fragestellung. 
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Deshalb ergibt sich die endgültige Wahrscheinlichkeit, 
weil für jede der Kombinationen sich die Einzel¬ 
wahrscheinlichkeit 1/32 ergibt, zu : 

Wahrscheinlichkeit für 2 Mädchen bei fünf 
Geburten = 10 * 1/32 = 10/32 = 31.25 % 

Aus diesem Beispiel können wir nun die allgemeine Be¬ 
rechnungsformel herleiten : 

Die Wcüirscheinlichkeit, bei n Versuchen x^-mal das 
günstige Ereignis zu haben, wenn dessen Einzeleintritts¬ 
wahrscheinlichkeit P beträgt, ergibt sich zu : 


W = - — - * P ^ * (1 - P) ^ 

x^!*(n-x^)! 

Diese Formel sieht recht kompliziert aus, läßt sich 
aber vergleichsweise leicht programmieren. 
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Programm: 


10 REM Z14-BINGMIAL 
20 CLS 

30 PRINT"PROGRAMM ZUR BERECHNUNG VON WAHRSCHEIN-" 
40 PRINT"LICHKEITEN MIT DER BINOMISCHEN VERTEI-" 

50 PRINT TAB(17)"LUNG." 

60 PRINT:PRINT;PRINT TAB(9)"PROF.DR.W.VOSS, 1984" 
70 PRINT:PRINT;PRINT:PRINT 

80 PRINT"MIT DIESEM PROGRAMM BZW. MIT DER BINO-" 

90 PRINT"MISCHEN VERTEILUNG KANN DIE FOLGENDE" 

100 PRINT"FRAGE BEANTWORTET WERDEN ;":PRINT 
110 PRINT"WIE GROSS IST DIE WAHRSCHEINLICHKEIT," 
120 PRINT"DASS BEI N VERSUCHEN X-MAL DAS GUENSTI-" 
130 PRINT"GE EREIGNIS EINTRITT, WENN BEI EINEM" 

140 PRINT"VERSUCH DESSEN WAHRSCHEINLICHKEIT P BE-" 
150 PRINT"TRAEGT ?" 

160 GOSUB 1000;REM WARTEN 

170 PRINT"DIESES PROGRAMM BENOETIGT ALS INF='UT-" 

180 PRINT"INFORMATIONEN : ":PRINT 

190 PRINT:INPUT"ZAHL DER VERSUCHE ; "; 

N 

200 PRINT:INPUT"ZAHL DER GUENSTIGEN EREIGNISSE: "; 

220 PRINT:PRINT"EINTRITTSWAHRSCHEINLICHKEIT BEI" 
230 INPUT"EINEM VERSUCH (DEZ.) ; ";P 

240 REM BINOMIALKOEFFIZIENT 
245 Y=N-X;Q=1-P 

250 IF X=0 OR X=N THEN BK=1:G0T0 360 
260 IF X>N/2 THEN H=Y:Y=X:X=H:G=Q:Q=P;P=G 
270 F=X;GOSUB 500:REM FAK 
290 PX=A;A=N 

295 IF PX=1 THEN PN=N:GOTO 350 
300 FOR I=N-1 TO N-X+1 STEP -1 
310 A=A*I 
320 NEXT I 
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330 PN=A 
350 BK=PN/PX 
360 W=BK>P- X*Q ‘'Y 
365 CLS 

370 PRINT" ERGEBNIS PRINT;PRINT 

380 PRINT"DIE WAHRSCHEINLICHKEIT, DASS BEI ";N 

390 PRINT"VERSUCHEN ";X;" MAL DAS GUENSTIGE" 

400 PRINT"EREIGNIS EINTRITT, BETRAEGT : " 

410 PRINT;PRINT:PRINT TAB(5)W 

f}20i^pI!NlT^PRINT:PRINT"NQCH EINE BERECHNUNG ? (J/N) 
430 IF A:f="J" THEN CLSrGDTO 190 

440 PRINT:PRINT:PRINT"ENDE DER BERECHNUNGEN";END 
500 REM UP FAK 
510 A=X 

520 IF X=0 OR X=1 THEN A=1:GÜTG 560 

530 FÜR I=X-1 TO 1 STEP-1 

540 A=A*I 

550 NEXT I 

560 RETURN 

1000 REM UP WARTEN 

j\010 LOCATE 5,23;PRINT"BITTE EINE TASTE DRUECKEN ! 

1020 A^:=INKEY:f: IF A:^="" THEN 1020 
1030 CLS 
1040 RETURN 
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Variablenliste; 


A = Produkt bei der Fakultätenberechnung 
= Stringvariable für Antworteingabe 
BK = Binomialkoeffizient 
F = Hilfsgröße (F=X) 

G = Hilfsgröße beim Tausch von P und Q 

H = Hilfsgröße beim Tausch von X und Y 

I = Laufindex 

N = Zahl der Versuche 

P = Eintrittswahrscheinlichkeit des günstigen 
Ereignisses bei einem Versuch 

PN = Erster Term des Binomialkoeffizienten 
PX = Zweiter Term des Binomialkoeffizienten 
Q = 1-P 

W = Wahrscheinlichkeit 

X = Zahl der günstigen Ereignisse 

Y = N-X 
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Programmbeschreibung: 


Satz 10-15^ : Überschrift und Erläuterungen. 

Satz 160-230 ; Warten und danach Eingabe der Input- 

Informationen (Zahl- der Versuche, 
Zahl der günstigen Ereignisse, Ein¬ 
trittswahrscheinlichkeit) . 


Satz 240-350 : Bestimmung des Binomialkoeffizienten : 

245 : Hilfsfelder; 

250 : Ist X=0 oder X=1, dann ist der 
BK definiert als 1; weiter bei 
360; 

260 ; Ist X> N/2, so ist, um die Kür¬ 
zungsmöglichkeiten auszunutzen, 

X mit N-X und P mit 1-P zu tau¬ 
schen. 

270 : Bestimmung von xl; 

290 : Belegung des Nenners von BK (= 

PX) und Neubelegung von A, falls 
Var. A erneut benutzt wird(300); 

295 : Ist der Nenner des BK = 1, so 

ist der Zähler des BK definiert 
als N; weiter bei Satz 350. 

300-320 : Bestimmung des Zählers des 
Binomialkoeffizienten BK; 

350 : Berechnung von BK. 

Satz 360 : Berechnung der gesuchten Wahrschein¬ 

lichkeit . 
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Satz 365-410 : Ausgabe des Berechnungsergebnisses. 

Satz 420-499 : Beendigung des Programms, es sei 

aenn es wird eine erneute Berechnung 
gewünscht (dann nach Löschen des 
Bildschirms zurück zu Satz 190). 


Satz 500-560 : Unterprogramm zur Berechnung einer 

Fakultät. 


Satz 1000-1040 ; Unterprogramm zum Warten. 
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9.16 


Zentrales Grenzwert- 


Theorem (ZGWT) 


Problemstellung 

Gesetzt den Fall, man zieht aus einer vorliegenden 
Grundgesamtheit eine Zufallsstichprobe vom Umfang 
50 (beispielsweise werden 50 zufällig ausgewählte 
Schüler einer Schule nach ihrer Zufriedenheit mit 
den Lehrern befragt). 

Man kann dann in einer solchen Stichprobe unter¬ 
schiedliche statistische Maßzahlen berechnen, wie 
beispielsweise ein arithmetisches Mittel (Durch¬ 
schnittsalter der Schüler oder dergl.)» 


Wenn man nun alle verschiedenen Zufallsstichproben vom 
Umfang n=50 ziehen würde, die überhaupt möglich sind 
(kein Mensch wird dies in der Praxis allerdings tun) , 
dann erhält man ggf. sehr viele dieser Durchschnitts¬ 
werte. Zeichnet man die Häufigkeitsverteilung all die¬ 
ser Mittelwerte auf, so erhält man eine Verteilung, die 
sehr präzise dem Modell der Normalverteilung entspricht, 
unabhängig davon, wie die interessierende Variable (z.B. 
das Alter der Schüler) in der Grundgesamtheit verteilt 
ist, aus der die Stichproben gezogen wurden. 













Voß 

Kapitel 9 : Mathematik II 

Seite 

Schule 

Abschnitt 16 : ZGWT 

359 


Auf diese Weise ist es möglich, wahrseheinlichkeitsbe- 
haftete Aussagen über den Durchschnittswert in nur einer 
einzigen Zufallsstichprobe (und das ist die Praxis) zu 
machen. 

Wir können dann errechnen, in welchen Grenzen der unbe¬ 
kannte Durchschnitt der Grundgesamtheit mit angebbarer 
Wahrscheinlichkeit (die unter Umständen recht hoch wer¬ 
den kann; z.B, 9^, 95 oder 99 %) liegen muß, wenn ein 
Stichprobenmittelwert in bestimmter Größe festgestellt 
worden ist. 

Diese Wahrscheinlichkeitsberechnungen sind nur deshalb 
möglich, weil wir die Gültigkeit der Normalverteilung 
unterstellen können, wie es das Zentrale Grenzwerttheo¬ 
rem von LaPlace und Liapunoff bewiesen hat ; 

Parameter von Zufallsstichproben folgen approximativ 
der Gauß'sehen Normalverteilung, unabhängig davon, wie 
die jeweilige Verteilung in der Grundgesamtheit aus¬ 
sieht . 

An einem einfachen Beispiel erweist das folgende Pro¬ 
gramm die Gültigkeit dieses Theorems. Es zeigt, daß 
Mittelwerte aus Zufallsstichproben approximativ nor¬ 
mal verteilt sind, obwohl die Grundgesamtheit, aus der 
diese Stichproben gezogen werden alles andere als "nor¬ 
mal" (im Sinne von Gauß) ist. 
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Zur Darstellung des Grenzwerttheorems lassen wir den 
Rechner 10^ Zufallsstichproben, jeweils vom Umfang 
n = 50, ziehen. Die Untersuchungsvariable seien Würfel- 
würfe. 

'Das heißt also,wir lassen den Rechner 50 Mal würfeln 
und berechnen die durchschnittliche Augenzahl in die¬ 
ser Stichprobe; danach würfelt er erneut 50 Mal und 
berechnet den Durchschnitt, würfelt erneut 50 Mal und 
berechnet den Durchschnitt usw. usw., und das alles 
insgesamt 100 Mal. 

Nach dieser Prozedur liegen 100 Durchschnitte vor, die 
ihrerseits in Form einer Häufigkeitsverteilung durcn 
den Rechner dargestellt werden können. 

Es wird sich bei der Ausgabe dieser Häufigkeitsvertei¬ 
lung zeigen, daß sie keineswegs mehr dem Modell einer 

Würfel-Augenzahlverteilung entspricht, das ja schema¬ 
tisch folgendermaßen aussehen müßte : 
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Im Gegenteil : Es wird sich eine Verteilung ergeben, 
die der Normalverteilung recht nahe kommt 
(übrigens ist die Annäherung an das 

Modell der Gauß'sehen Normalverteilung gemäß des Zen¬ 
tralen Grenzwerttheorems um so besser, je größer die 
Zufallsstichproben sind). 

Zusätzlich zur graphischen Veranschaulichung der ent¬ 
stehenden Häufigkeitsverteilung, berechnen wir auch 
die kennzeichnenden Parameter, nämlich das arithmeti¬ 
sche Mittel und die Standardabweichung. Dabei gilt : 

Arithmetisches Mittel = - 

n 


(entsprechend kann auch ein Mittelwert aller Stichpro¬ 
benmittelwerte definiert werden); 


Standardabweichung 



(dabei ist x das jeweilige arithmetische Mittel); ent¬ 
sprechend kann auch eine Standardabweichung aller 
Stichprobenmittelwerte definiert werden), 
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Im einzelnen ist also folgendes zu tun : 

1. In dem zu entwickelnden Programm sollen 100 Mal je 
50 Würfelwürfe simuliert werden und aus jeder 50er 
Serie ist das arithmetische Mittel zu berechnnen. 

2. Zusätzlich wird der Gesamtmittelwert berechnet und 
darüber hinaus als Streuungsmaß für alle insgesamt 
5000 Würfelwürfe die Standardabweichung. 

3. In einem dritten Schritt erstellen wir dann die 
Häufigkeitsverteilung der 100 erzeugten Stichpro¬ 
benmittelwerte, indem die I'littelwerte in ein Klas¬ 
sifizierungsraster einsortiert werden, wobei die 
Klassen jeweils 0.1 Einheiten breit sind (dies 
wird sich als zweckmäßige Klassenbreite erweisen). 

4. Im Anschluß '.daran wird der Mittelwert und die 
Standardabweichung dieser Häufigkeitsverteilung 
bestimmt und diese beiden Maße werden mit den ent¬ 
sprechenden Werten, wie sie in Punkt 2. berechnet 
wurden, verglichen. 

5. Schließlich wird die Häufigkeitsverteilung der 
Stichprobenmittelwerte auch der Anschaulichkeit 
halber graphisch ausgegeben. 
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Progranun; 


10 REM Z15-ZGWT 
20 CLS 

30 PRINT"PROGRAMM ZUR ILLUSTRATION DES ZENTRALEN" 
40 PRINT"GRENZWERTTHEGREMS (NORMALVERTEILUNG VON" 
50 PRINT TAB(15)"GAUSS)." 

60 PRINT:PRINT:PRINT TAB(9)"PROF.DR.W.VOSS, 1984" 

70 PRINT:PRINT;PRINT:PRINT:PRINT 

80 PRINT"DIESES PROGRAMM FUEHRT 100 SERIEN ZU JE" 
90 PRINT"50 WUERFELWUERFEN DURCH UND BESTIMMT" 

100 PRINT"DEN MITTELWERT IN JEDER SERIE." 
^10^PRINT:PRINT"UEBER DIESE MITTELWERTE WIRD DANN 

120 PRINT"HAEUFIGKEITSVERTEILUNG ERSTELLT." 

122 GOSUB 1100:REM WARTEN 
125 N=100 

130 DIM AM(N) ,H::A(11) ,KE(11) ,H(11) ,W(N,50) 

140 FOR 1= 1 TO N 
150 S=»0 

160 FOR J=*l TO 50 

170 W(I,J)*INT(RND(1)*6+1) 

180 S=S+W(I,J):SS=SS+W(I,J) 

190 NEXT J 
200 AM(I)=S/50 
210 NEXT I 
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216 

GÜSUB 1100:REM WARTEN 

217 

FÜR 1=1 TO N:FOR J= 1 TO 50 

219 

S1=S1 + (W(I , J)-MW>--2:NEXT J:NEXT I 

223 

S9=SQR(S1/(N*50)) 

225 

PRINT:PRINT"STANDARDABWEICHUNG = ";S9 

226 

PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 

227 

REM HAEUFIGKEITSVERTEILUNG 

230 

GOSUB 1000: REM ABWARTEN 

240 

PRINT"MITTELWERT IN 50-ER ANZAHL" 

250 

PRINT" SERIEN" 

260 

270 

FOR 1=1 TO 30:PRINT"-";:NEXT I:PRINT 

FÜR K=1 TO 10 

280 

KA(K)=3+(K-1)*0.1 

290 

KE (K) =KA (K) -HO. 1 


300 NEXT K 

310 FÜR 1=1 TO N 


320 

FOR K=1 TO 10 

330 

IF AM(I)<KE(K) THEN H(K)=H(K)+1:GOTO 350 

340 

NEXT K 

345 

H<11)=H(11)-H 

350 

NEXT I 

360 

FOR K=1 TO 10 


PRINT KA(K);TAB(6)" BIS UNTER ";KE(K);TAB(25)H 

380 

NEXT K 
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385 PRINT TAB(11)"UEBER ";KE<10);TAB(25)H(11) 
390 REM MITTELWERT DER SPV 
400 8=0 


410 FÜR J=1 TO N 
420 S=S+AM(J) 

430 NEXT J 
440 A=S/N 

PRINT:PRINT:PRINT"MITTELWERT DER VERTEILUNG : 

455 REM STREUUNG DER SPV 
460 S=0 

470 FÜR J=1 TO N 
480 S=S+<AM<J)-A)-2 
490 NEXT J 
500 SS=SQR(S/N) 

510 PRINT:PRINT:PRINT"STREUUNG DER VERTEILUNG : 
";:PRINT USING f'###.##^;SS 

515 GOSUB 1000:REM ABWARTEN 

520 PRINT:PRINT:PRINT" GEGENUEBERSTELLUNG : " 

pRINT:PRINT 

530 PRINT TAB(20)"WUERFEL GAUSS":PRINT 






USING "##.##" 
USING "## 


580 GOSUB 1000:REM WARTEN 
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600 REM GRAPHIK 
610 PLOT 0,80 
620 DRAW 600,80 
630 FÜR H:>1 Tü 11 

640 E=20:A=E-H(K);IF A<3 THEN A=3 
645 LOCATE 3*K-1,A-2:PRINT H(K) 

650 FOR J= A Tü E 

660 LOCATE 3*K , J : PRINT CHRi:(143) 

670 NEXT J 
680 NEXT K 
730 LOCATE 5,23 

740 PRINT"ENDE DER AUSGABE":END 
1000 REM UP ABWARTEN 

;\010 LOCATE 5,23:PRINT"BITTE EINE TASTE DRUECKEN ! 


1020 A4:=INKEY^:: IF A^="" THEN 1020 

1030 CLS 

1040 RETURN 

1100 REM UP WARTEN 

TAe(7> "BITTE WARTEN, 

1120 RETURN 


ICH RE 
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Variablenliste 


A 

= Mittelwert aller Mittelwerte, 

später Anfangsadresse zum Zeichnen 

AM = 

= Stichprobenmittelwert 

A$ 

= Stringvariable (Antworteingabe) 

E 

= Endadresse beim Zeichnen 

H 

= Häufigkeit 

I 

= Laufindex (Serie Nr.) 

J 

= Laufindex (Wurf Nr.) 

K 

= Laufindex (Klasse) 

KA = 

= Klassenanfangspunkt 

KE = 

= Klassenendpunkt 

MW = 

= Gesamtmittelwert 

N 

= Zahl der Würfe 

S 

= Seriensumme 

SS = 

= Gesamtsumme (Später Standardabweichung) 

S1 = 

= Quadratsumme 

S9 = 

= Standardabweichung 

W 

= Würfelwurf 
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Programmbeschreibung; 


Satz 10-12^5 

Satz 122 


: Überschrift und Erläuterungen. 

: Warten (per Unterprogramm 110^). 


Satz 125-13g^ : Angabe der Zahl der zu ziehenden Stich¬ 

proben und Dimensionierung der benötig¬ 
ten Variablenfelder (es wird dabei ein 
Stichprobenumfang von unterstellt) . 

Satz 140-210 : Erzeugung von 100 Stichproben zu je 50 

Würfelwürfen : 

150 : Belegung eines Summenfeldes S mit 
dem Wert 0; 

160-190 : Es wird 50 Mal gewürfelt. 

170 : Würfelwurf; 

180 : Bildung der stichprobeninter¬ 
nen Augensumme S und der Ge¬ 
samtsumme SS; 

200 : Bestimmung des Stichprobenmittel- 
wertes AM. 


Satz 215 

Satz 216 


; Errechnung des Gesamtmittelwertes MW 
und Ausgabe. 

: Abwarten. 
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Satz 217-225 : Bildung der Gesamt-Standardabweichung 

als Maß der Streuung der Augenzahlen 
und Ausgabe dieses Maßes. 


219 : Addition aller quadrierten Abwei¬ 

chungen der Augenzahlen vom Ge¬ 
samtmittelwert im Feld S1; 

223 : Berechnung der Standardabweichung; 
225 : Ausgabe des Ergebnisses. 

Satz 227-23^ : Warten, 

Satz 240-260 : Ausgabe einer Tabellenüberschrift für 

die Häufigkeitsverteilung der Stichpro¬ 
benmittelwerte . 

Satz 270-300 : Bestimmung der Klassenuntergrenzen (KA) 

und der Klassenobergrenzen (KE) für die 
zu erzeugende Häufigkeitsverteilung 
{Klassenbreite = 0.1). 
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Satz 310-35<^ : Einordnen der Stichprobenmittelwerte in 

die Häufigkeitsklassen; 

310 : Vorgabe eines Mittelwerts (von den 
insgesamt 100 Mittelwerten); 

320 : Vorgabe einer Häufigkeitsklasse 
(von^den insgesamt 10 Klassen); 

330 : Ist der Mittelwert kleiner als die 
Klassenobergrenze KE, so ist er in 
diese Klasse einzuordnen (H=K+1); 
dann weiter bei 350 (nächster Mit¬ 
telwert) ; wenn nicht, weiter bei 
340 (nächste Klasse); 

340 : nächste Klasse; 

345 : Besetzung einer Restklasse 

350 : nächster Mittelwert 
Satz 360-385 : Ausgabe der Häufigkeitsverteilung 

Satz 390-450 : Berechnung des Mittelwerts aller Stich¬ 

probenmittelwerte (= Mittelwert der sog. 

Stichprobenverteilung) : 

400 : Summenfeld S = 0; 

410-430 : AufSummierung aller Stichpro¬ 
benmittelwerte AM; 

440 : Berechnung des Gesamtmittels A; 

450 : Ausgabe von A. 
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Satz 455-510 : Berechnung der Streuung aller Stichpro- 

benmittelwerte (= sog. Stichprobenfeh¬ 
ler) : 

460 : Summenfeld S = 0; 

470-490 : Bildung der Summe aller qua¬ 
drierten Abweichungen 
zwischen Stichprobenmittelwerten 
und Gesamtmittelwert; 

500 : Berechnung der Standardabweichung 
(= Streuung der Stichprobenvertei¬ 
lung) ; 

510 : Ausgabe. 

Satz 510-570 : Gegenüberstellung der einzelnen errech- 

neten Maßzahlen. 

Satz 530 : Warten. 

Satz 600-700 ; Erzeugung des graphischen Abbilds aer 

Häufig)ceitsverteilung : 

610-620 : Zeichnen eines waagrechten 
Strichs; 

630 : Vorgabe einer Häufigkeitsklasse; 
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640 : Bestimmung des Endpunktes 
und des Anfangspunktes des 
zu zeichnenden Balkens, der 
die jeweilige Häufigkeit re¬ 
präsentieren soll; 

645 : Ausgabe der Häufigkeit; 

650-670: Zeichnen des Balkens 

680 : Nächste Klasse 


Satz 

730-740 : 

Beendigung des Programms 

Satz 

1000-1040 : 

Unterprogramm Warten 

Satz 

1100-1120 : 

Unterprogramm Wartemeldung 
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Wenn dieses Programm gestartet wird, dann benötigt es 
zunächst ca. 3 Minuten, um das erste Zufallsergebnis 
zu produzieren : 

GESAMTMITTELWERT = 3.5218 


Wach weiteren 5 Minuten meldet der Rechner dann : 


STANDARDABWEICHUNG = 1.7<zi573292 


Bei einem völlig korrekten Würfel liegt übrigens der 
zu erwartende Mittelwert bei 3.5 und die zu erwartende 
Standardabweichung bei 1.708. 


Danach ergibt sich die folgende Häufigkeitsverteilung, 
die wohlgemerkt ein Zufallsergebnis darstellt : 


MITTELWERT IN 50-ER 
SERIEN 


ANZAHL 


3 

BIS 

UNTER 

3.1 

5 

3.1 

BIS 

UNTER 

3.2 

6 

3.2 

BIS 

UNTER 

3.3 

6 

3.3 

BIS 

UNTER 

3.4 

8 

3.4 

BIS 

UNTER 

3.5 

15 

3.5 

BIS 

UNTER 

3.6 

19 

3.6 

BIS 

UNTER 

3.7 

17 

3.7 

BIS 

UNTER 

3.8 

10 

3.3 

BIS 

UNTER 

3.9 

14 

3.9 

BIS 

UNTER 

4 

0 


UEBER 

4 

0 


MITTELWERT DER VERTEILUNG : 3.52 

STREUUNG DER VERTEILUNG : .23 
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Weiterhin gibt der Rechner aus : 


GEGENÜBERSTELLUNG 


WUERFEL GAUSS 
MITTELWERT 3.52 3.52 

STREUUNG 1.71 0.23 

Wir erkennen, daß die Streuung der Stichprobenvertei¬ 
lung, die - wie schon erwähnt wurde - annäherungs¬ 
weise der Gauss'sehen Normalverteilung entspricht, sehr 
viel kleiner ist als die der ursprünglichen Verteilung. 
Darauf beruht letzten Endes die Präzision, die bei Hoch- 
rechnii^ngen, ausgehend von Zufallsstichproben, erreicht 
werden kann. 
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Das Zentrale Grenzwerttheorem beweist u.a. die folgenden 
Beziehungen : 


Mittelwert der 
Stichprobenver¬ 
teilung 


Mittelwert der 
Grundgesamtheit 

3.52 


3.52 

Streuung der 
Stichproben¬ 
verteilung 

-- 

Streuung der 

Grundgesamtheit 
dividiert durch 
die Wurzel aus dem 
S tichp robenumf ang 

<2^.23 


1.71/ 


= 

.i>l ... 



0.242 


Schließlich produziert das Programm noch eine gra¬ 
phische Darstellung der oben vorgeführten Häufigkeits¬ 
verteilung für Stichprobenmittelwerte, wobei die ein¬ 
zelnen Häufigkeiten als Balken unterschiedlicher Länge 
dargestellt werden. 
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Wahlen 


Problemstellung 

Das Programm veranschaulicht graphisch in Form eines 
Balkendiagramms Wahlergebnisse. 

Dazu muß der Benutzer die prozentualen Stimmenanteile 
für CDU, SPD, F.D.P., Grüne und Sonstige eingeben. 

Problemanalyse 

Eine Problemanalyse ist bei dieser recht einfachen 
Aufgabe wieder entbehrlich. 
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Programm; 


10 REM Z16-WAHLEN 
20 CLS 

30 PRINT"PRÜGRAMM ZUR GRAPHISCHEN DARSTELLUNG" 

40 PRINT TAB(9)"VON WAHLERGEBNISSEN." 

50 PRINT:PRINT:PRINT:PRINT 

60 PRINT TAB(9)"PROF.DR.W.VOSS, 1984" 

70 PRINT:PRINT:PRINT 

80 PR INT "EINZUGEBEN SIND DIE WAHLERGEBNISSE IN 7." 
90 PRINT:PRINT:PRINT 
95 DIM F(5),G(5) 


100 

INPUT 

"CDU/CSU 


" ; F ( 1) 

110 

INPUT 

"SPD 


";F(2> 

120 

INPUT 

"F.D.P. 


";F(3> 

1 30 

INPUT 

"GRUENE 


";F(4) 

140 

INPUT 

"SONSTIGE 


";F(5) 

150 

CLS 




160 

PLOT 0 

,110:DRAW 

600, 

,110 

180 

FM=0:F0R 1=1 TO 

5: IF Fd) >FM THEN 

190 

NEXT I 




200 

FOR 1 = 

1 TO 5:G(I)=(17/FM)*F(I) 


210 G(I)=INT(G(I)+0.5):NEXT I 
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230 GÜSUB 2000:REM ZEICHNEN 
250 LÜCATE 1,22 

260 PRINT"CDU SPD FDP GRU SONST" 

270 FOR J=1 TO 5:PRINT TAB(6*(J-1))F(J);:NEXT J 

280 PRINT:PRINT"ENDE":END 

2000 REM UP ZEICHNEN 

2010 FOR J=1 TO 5 

2020 B=17:A=18-G(J) 

2030 FOR 1= A TO B 

2040 LOCATE (J-1) *6+2 , I: PRINT CHR:t:(143) 

2050 LOCATE (J-1) *6+3, I: PRINT CHR^:(143) 

2060 NEXT I 
2070 NEXT J 
2080 RETURN 
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Variablenliste 


A 

Startzeile der Zeichnung 

B 

Endzeile der Zeichnung 

t 

Prozentanteile 

FM = 

Maximalwert 

G 

Transformierte Prozentanteile 

I 

LaufIndex 

J 

LaufIndex 
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Programmbeschreibung 


Satz 10“ 90 : 

Überschrift und Erläuterungen 

Satz 95 : 

Dimensionierungen 

Satz 100-140 ; 

Eingabe der Inputinformationen 

Satz 150-160 : 

Löschen des Bildschirms und 

Zeichnen eines waagrechten Strichs 

Satz 180 : 

Aufsuchen der maximalen Prozent¬ 
angabe 

Satz 200-210 : 

Umrechnen der Prozentangaben derart, 
daß der Maximalwert den auf dem Bild¬ 
schirm zur Verfügung stehenden Platz 
ausnutzt 

Satz 230 : 

Sprung ins UP 2000 zum Zeichnen 

Satz 250-270 : 

Ausgabe der Texte CDU, SPD, F.D.P., 

GR, SO und der Prozentangaben un¬ 
terhalb der Zeichnung 

Satz 280 ; 

Ende des Hauptprogramms 

Satz 2000-2090 : 

Unterprogramm zum Zeichnen der Balken 

Satz 2010-2020; 

Bestimmung von Anfang- und End¬ 
adresse des Balkens 

Satz 2030-2070; 

Zeichnen von inversen Blanks an 
die per LOCATE bestimmten Stel¬ 
len 

Satz 2090; Rücksprung 
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Ausblick 


In den vorangegangenen Kapiteln haben wir versucht,zu 
zeigen, wie mit Hilfe vergleichsweise einfacher BASIC- 
Programme typische Probleme, wie sie im Schulalltag 
auftreten, gelöst werden können. 

Mit Nachdruck muß darauf hingewiesen werden, daß die 
ausgewählten Beispiele nur exeiaplarischen Charakter ha¬ 
ben, und daß wir keinen Wert darauf gelegt haben, opti¬ 
male Programme zu erstellen. 

Der Leser sollte vielmehr in die Lage versetzt werden, 
die Funktionsweise der Programiae rasch nachvollziehen 
zu können. Damit wird er dann in der Lage sein, auch 
für andere Probleme, die ja häufig den hier vorgestell¬ 
ten Beispielen ähneln werden, die entsprechenden Lösungs¬ 
ansätze zu finden. 

Entscheidend beim Computereinsatz ist nämlich nicht der 
Rechner selbst, sondern die Fähigkeit des Benutzers, be¬ 
stimmte Probleme so aufzubereiten, daß er dem Rechner 
den adäquaten Lösungsweg in Form eines Programms geben 
kann. 

Wichtig ist nämlich nicht in erster Linie, daß ein Pro¬ 
gramm schon beim ersten Versuch fehlerfrei läuft (auch 
wenn dies natürlich sehr zu begrüßen und erfreulich ist), 
sondern daß der Computerbenutzer es lernt, wie ein ge¬ 
stelltes Problem gedanklich vorstrukturiert werden muß, 
damit es durch einen Rechner dann bearbeitet werden 
kann : 
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Ein Computer nützt uns nämlich nichts, wenn wir, 
die Benutzer, die jeweiligen Problemlösungswege 
nicht schon im Kopf haben. 

Und wenn einmal ein Programm nicht so funktionieren 
sollte, wie der Benutzer das erwartet und zum Bei¬ 
spiel mit einer Fehlermeldung der Programmlauf ab¬ 
gebrochen wird, dann hilft immer noch ein Blick 
in das Benutzerhandbuch. 

Für diejenigen Leser, denen die vorgestellten Bei¬ 
spiele zu einfach waren, sei darauf hingewiesen, 
daß dieses Buch in erster Linie für BASIC-Einstei- 
ger gedacht war, die wir nicht schon durch die 
eventuelle Komplexität der Aufgabenstellungen über¬ 
fordern wollten. Zu ihrem Trost aber verweisen wir 
auf einen in Bälde erscheinenden Fortsetrungsband 
zu diesem Buch, in dem dann insbesondere komplexere 
und vor allem mathematische Fragestellungen aufge¬ 
griffen werden sollen. 
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A 

Abbildung, optische 

Abfrage 

ABS 

Addition 

Anfangswert 

Arbeitsschritt 

Archimedes 

Argument 

Array 

Ausgabe 

Ausprägung 


B 


7, 17 
95, 179 
136 
12 
245 
13 
21 
347 
211 
9 

158 

80 

9 

282 

9 


35 
95 

25, 97 

36 
36 

25, 309 
309 
398 


BASIC 

BAS IC - Anwe i s un g 

BASIC-Graphikanweisung 

Betriebssystem 

Bevölkerungsentwicklung 

Bildschirm 

Bildschirmzone 

Binomialverteilung 

Biologie 

Bit 

Blockgraphik 

Bruttobetrag 

Buchstabe 

Bundesländer 

Byte 


C 

CAT 

Chemie 

CHRg5 

CLS 

CONT 

COS 

Cosinus 

CTRL 


163 

28 

25 

23 
32 
41 

151 

24 
11 
12 
.10 






Voß 

Schule 

Stichwortverzeichnis 

Seite 

384 

D 




DATA 

99 


Datei 

1 1 


Daten 

8, 

12 

Dateneingabe 

99 


Datensatz 

11 


Datenverarbeitung 

8 


DIM 



Dimensionierung 

100 


Diskette 

13, 

35 

Division 

23 


Dreieck, rechtwinkliges 

•42 


Dreisatz 

81 


Dreisatzrechnung 

80 


Drucker 

13 


e' 




E 


74 


Eingabe 

12 


Eingabefehler 

40 


Element, chemisches 

122 


Ellipse 

316 


END 

18 


Endlosschleife 

36 


Endwert 

32 


Englisch-Vokabein 

196 


Englisch-Vokabeltest 

196 


ENTER-Taste 

24 


Erdkunde 

231 


Ergebnis 

41 


Ergebnisausgabe 

17 


ESC 

36, 

98 

Eva-Prinzip 

42, 

152 

EXP 

25 


Exponentialdarstellung 

92 


F 




Farbadresse 

141 


Farbe 

97, 

98, 99 

Federwaage 

144 


Feld 

10 


File 

11 


Flußdiagramm 

14, 

41 

FOR...TO 

32 


Französisch-Vokabeln 

189 


Fremdsprache 

179 


Funktion 

24, 

25 

Funktionsname 

24 


Funktionsweise 

12 
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G 




Gauß 

32jz5 


Gerade 

296 


Geschichte 

231 


Gesetz, Ohm'sches 

173 


GGT 

50 


Gitter 

293 


Gleichung, quadratische 

68 


GOSUB 

180 


GOTO 

30 


Graphik 

132, 

293 

Graphik, hochauflösende 

132 


Graphik-Programmierung 

132 


Graphikzeichen 

96 


Grenzwerttheorem 

358 


H 




Häufigkeitsverteilung 

273 


Hauptstädte 

238 


Hypothek 

262 


HypothekentiIgung 

262 


I 




IF...THEN 

28 


Indizierung, doppelte 

101 


Informationen 

8 


Informationseingabe 

26 


Inhaltsverzeichnis 

35 


INKEY$ 

180 


INPUT 

26, 

98 

INT 

25 


J 




Jahreszahlen 

232 


Jahreszahlen, historische 

232 


K 




Kassette 

13 


KGV 

50 


Kombinationen 

336 


Kommando 

12, 

20 

Korrektur 

24 


Kräfteparallelogramm 

168 


Kreis 

299 
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L 




Laden 

34 


Länder 

238, 282 


Laufvariable 

32 


Leerzeile 

18 


LET 

23, 98 


Linse 

163 


LIST 

20 


LOAD 

34 


LOG 

25, 313 


Logarithmus 

313 


Loop 

32 


Lotto 

342 


M 

Mathematik 

39, 291 


Menü 

174 


Menütechnik 

174 


Mittel, arithmetisches 

269 


Mittelwert 

27, 269 


Multiplikation 

23 


N 

Name 

10 


Nation 

245 


Nettobetrag 

80 


NEW 

21 


NEXT 

32 


Normalgraphik 

158 


Normalverteilung 

32o, 358 


0 

Ökologie. 

211 


OPEN 

35 
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p 


Pendel 

157 

PendeIbewegung 

157 

Periodensystem 

122 

Permutationen 

332 

Physik 

131 

Potenzierung 

23 

Primzahl 

59 

Primzahlenprüfung 

59 

PRINT 

18 

PRINT USING 

173 

Problemanalyse 

.14, 41 

Problemvorstellung 

41 

Programm 

41 

Programmanweisung 

11, 12 

Programmbeschreibung 

41 

Programmieren 

16 

Programmschleife 

32 

Programmverzweigung 

28 

Prozentrechnung 

80 

Punkt 

297, 298 

Pythagoras 

41 

Q 

Quadratzahl 

306 

R 

READ 

99 

Reaktion, chemische 

109 

Reaktionsgleichung 

109 

Rechengenauigkeit 

92 

Rechenoperation 

23 

Rechnen, stöchiometrisches 

116 

Rechnung 

18 

Regression 

324 

REM 

37 

RESTORE 

102 

RESTORE-Taste 

98, 298 

RETURN 

181 

RND 

25, 85 

RUN 

19 
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s 


Satz 

17 

Satznummer 

28 

SAVE 

35 

Schleife 

32 

Schrittweite 

32 

SHIFT 

98 

SIN 

25, 398 

Sinus 

303, 309 

Sinuslinie 

303 

Sonderzeichen 

9 

Sortieren 

203 

Sortierprogramm 

207 

Spaltenindex 

101 

Speicher, externer 

13, 34 

Speichern 

34 

Speicherplatz 

100 

Speichersteile 

10 

Sprache 

179 

Sprung 

28 

Sprung, bedingter 

28 

Sprung, unbedingter 

28 

SQR 

25 

Statement 

17 

STEP 

33 

Steuerbetrag 

80 

Stöchiometrie 

116 

STOP 

36 

Strich 

136 

String 

11, 18 

Stringvariable 

22 

Subtraktion 

23 

Symbol 

9 

T 

TAB 

21 

TAN 

25, 309 

Tangens 

309 

Tastatur 

13, 96 

Trend 

325 


u 

Umweltverschmutzung 223 
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V 


Variable 10 , 22 

Variable, ganzzahlige 22 

Variable, indizierte 100 

Variable, reelle 22 

Variablehliste 41 

Variablehname 18, 22 

VC 1541 35 

Verarbeitung 12 

Verben 182 

Verben, englische 182 

Verben, unregelmäßige 1.82 

Verzweigung 28 

Vokabeln 189 

Vokabeltest 196 

W 

Wachstum 212 

Wachstum, gebremstes 217 

Wachstum, ungebremstes 212 

Wahlen 376 

Wassermolekül 103 

Wert 10 

Wertzuweisung 22 

Wirtschaft 255 

Wirtschaftskraft 282 

Würfel 85 

Wurzel 306 

Z 

Zahl 18 

Zahl, Euler'sehe 74 

Zeilenindex 101 

Zentraleinheit 13 

ZGWT 358 

Ziffer 9 

Zins 256 

Zinsrechnung 256 

Zufallszahl 85 
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